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Editorial 



SPAIN IS NOT 
DIFFERENT 



Hace cuestión de un mes. una 
prestigiosa revista Informática, 
afirmaba que el pasado año las 
ventas de software en nuestro país 
habían decrecido alarmantemente. 
Esta Información sin embargo 
pecaba de tendenciosa, pues los 
entrevistados, muy cucos ellos, sólo 
hacían referencia a las ventas de 
software para máquinas que. dada 
su política de esclavlsmo. han 
quedado definitivamente obsoletas. 
En el campo del MSX podemos 
afirmar que las ventas de software 
han constituido un auténtico récord 
en 198S. No obstante, a pesar de ello 
Y salvo honrosas excepciones, una 
mayoría de fabricantes de software 
de nuestro país, debido a ese 
descenso de ventas al que aludía la 
citada publicación, parecen estar 
poco convencidos a la hora de echar 
la carne en el asador del MSX. 

Y es que mal nos pese, como decía 
aquel célebre eslogan. "España es 
diferente". ¿Motivos? Sinceramente 
no acertamos a comprenderlos, pues 
si a nivel mundial nuestro estándar 
ha recibido el beneplácito y el apoyo 
de todas las compañías de software 
de Europa. América y Asia, lo lógico 
ha de ser que los fabricantes de 
software y periféricos, para MSX 
hagan lo propio en nuestro país. La 
única Justificación plausible ante 
este retraso en ponerse al día. es 
precisamente que nuestros 
fabricantes hagan caso de ese tipo 
de Informaciones tendenciosas, 
propiciadas por quienes, gracias a 
haber vendido su prlmogenltura por 
un plato de lentejas a Commodore y/ 
o Sinclair, están pagando las 
consecuencias de su falta de 
previsión. Desde estas páginas 
queremos proclamar, recordar que 
ya somos europeos, que España no es 
diferente y que. si en el resto del 
mundo MSX se ha Impuesto, aquí 
sucederá otro tanto y en un plazo 
más breve del que podáis 
Imaginaros. Buena prueba de ello es 
la excelente difusión de esta revista 
que tenéis en las manos. 
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APRENDERA 
TECLEAR 



Hace poco que he comprado 
un HIT BIT HB 76P y me en- 
cuentro un poco ciego, por lo 
que les pido que me aconsejen 
algún libro. También es muy 
fastidioso teclear un progra- 
ma y al ejecutarlo encontrarse 
con errores. Por ejemplo en 
Batalla espacial que me sale 
out of data in 680. Mucha suer- 
te con la revista. 

Rafael Juan Martínez 
Casas Reufe - León 



|M M kWIíé¿ ir t/tna Ji* 

componn minio a uru ios u tm stxtt 
organiza! Un propios programa» de gestión. 

LOS SECRETOS DEL 



mm 



A i 



Te sugerimos que adquieras 
«Los secretos del MSX» que he- 
mos editado para, solventar to- 
das las dudas a los que se ini- 
cian en el BASIC MSX. En 
cuanto al error que nos co- 
mentas, lo mejor será que revi- 
ses el listado, sobre todo en las 
líneas de datas. 



COMO GRABAR 



Un amigo mío y yo no sabe- 
mos cómo grabar un progra- 
ma en una cinta, de modo que 
los programas que tecleamos 
los tenemos que borrar y ya es- 
tamos hartos. Por favor dígan- 
nos cómo hacerlo. 

Feo. Manuel Fernández 
Marbella (Málaga) 

Sentimos mucho que aún ig- 
nores el modo de grabar. Ha- 
cerlo es muy fácil. Primero co- 
necta una grabadora en el or- 
denador y coloca en él una cas- 
sette, cuidando de que el inicio 
de la cinta no sea parte blanca 
que algunas tienen. Después, 
escribe en el ordenador CSAVE 
"nombre del programa" (sólo 
seis letras) y pulsa return. 
Después pulsa las teclas 
PLAY+REC de la grabadora y 



espera que salga 0K en panta- 
lla. Cuando quieras cargarlo 
en el ordenador, pon en éste 
CLOAD "nombre del progra- 
ma" y pulsa RETURN y des- 
pués PLAYen la grabadora. 



ENSAMBLADOR 



Creo que la sección del Hard 
al Soft es lo mejor de vuestra 
revista pero sabe a poco. Me 
gustaría que dijeran si me sir- 
ve cualquier libro de progra- 
mación en ensamblador para 
cualquier ordenador siempre 
y cuando tengan el micropro- 
cesador Z80. Lo que quiero de- 
cir es si el libro «Z80 Assembly 
Language Programing» de 
Lance A. Levental me permite 
programar tanto para el Spec- 
tmm como para el MSX, ya que 
ambos tienen el Z80 A. ¿Por 
qué no dedicáis un artículo es- 
pecial a este tema? 

José RlveUes Miguel 
Valencia 



Indudablemente este libro 
puede serte de gran ayuda 
para conocer el microprocesa- 
dor. Sin embargo, ten en cuen- 
ta que cada lenguaje tiene sus 
propias subrutinas, de modo 
que allí está la diferencia que 
impide que los programas 
sean iguales. 



LUCKY LUGKE 



Primero tengo que decirles 
que tengo muy poca idea de 
programación por eso me gus- 
taría que me indicaran porque 
me sale en Lucky Lucke Break 
in 190, Break in 180, 160, 
2080 y 2090. He intentado de 
cambiar estas instrucciones 
pero no he conseguido nada 
positivo. 

F. Gin 
Verdicio 



Te recomendaríamos que re- 
vises cuidadosamente las lí- 
neas y compruebes si en algu- 
na de ella no has colocado un 
END o STOP incorrecto. 



DYNADATA 



DPC-200 



Acabo de comprar un Dyna- 
data DPC-200 y hasta el mo- 
mento no he leído nada sobre 
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él, ni siquiera en vuestro EX- 
TRA DE VERANO. El motivo de 
mi carta es que me aclaréis 
para qué sirve la tecla SELECT. 
También quisiera saber cuan- 
do estará a la venta el juego 
H.E.R.O. y hasta qué fecna ven- 
deréis «Los secretos del MSX». 

Por otra parte les rogaría 
que siguieran publicando esos 
minúsculos y excelentes pro- 
gramitas de gráficos y sonido. 



Como ya habrás visto en 
nuestro número anterior pu- 
blicábamos una breve reseña 
del DPC-200, entre los «20 
MSX DE ESPAÑA». Con res- 
pecto a la tecla «Select» tene- 
mos que decirte que normal- 
mente no tienes que usarla, 
pero ella está para realizar 
una selección entre las opcio- 
nes disponibles de los cartu- 
chos de programa ROM=. 

El Juego H.EJi.0. ya está a la 
venta, tanto en el catálogo de 
Philips como de PROEIN, SJLy 
nuestro libro «Los secretos del 
MSX» no tiene fecha límite, 
pero su ritmo de venta hace 
suponer que se agotará muy 
pronto. 

Con respecto a los mlnl pro- 
gramas de gráñcos y sonido, 
tendremos en cuenta tu suge- 
rencia. 



MOONWALKER 



Quisiera que me ayudarais a 
resolver una duda, pues en el 
programa Moonwalker me 
sale niegal function cali en 
130 y como soy muy novato no 
sé como encontrar el error. 

P. Arias 
La C oruña 

Revisa cuidadosamente esta 
misma línea y también las co- 
rrespondientes a las DATAS, 
es decir desde la 140 a la 180. 



El Juego Moonwalker se eje- 
cuta muy bien basta la línea 
960 en que me sale Sintax 
error. 

Andrés Cubero 



Es posible que te salga sin- 
tax error debido a que en algu- 
nos ejemplares y tal vez el tuyo 
sea uno de ellos, no han salido 
correctamente impresas las 
comillas C) que siguen al ter- 
cer PRINT. Mejorar la calidad 
y el servicio a nuestros lecto- 
res es nuestra constante preo- 
cupación. Por ello hemos in- 



corporado el Test de Listado y 
cambiado la impresora de lis- 
tados. 



ZEROFIGHTER 



Les escribo para que me en- 
víen el ZEROFIGHTER de 16K 
que apareció en su revista, 

Luis Alsina 



En efecto, en nuestro n° 6 
publicamos un comentario so- 
bre Zeroñghter, pero eso no 
signiñca que lo vendamos. 
Este Cassette producido por 
Microbyte se encuentra en el 
catálogo de Canon. Puedes en- 
contrarlo en las tiendas de in- 
formática o en grandes alma- 
cenes. 

He comprado el Zeroñghter 
y no me carga ¿qué puedo na- 
cer, 

José V. Beltrán 
Hules (Castellón) 

Vuelve a la tienda que te lo 
vendió y que te lo cambie, pero 
antes sigue las instrucciones 
de carga al pie de la letra. 



AREAS 



En el programa Areas ocu- 
rre que no me salen los gráfi- 
cos correspondientes al círcu- 
lo, pentágono y rectángulo 
cuando solicito sus áreas. 
También tengo problemas con 
el Lucky Lucke que al ejecutar- 



lo y cuando aparece el saloon 
en pantalla ésta se pone total- 
mente negra, el programa se 
detiene y no aparece nigún 
sintax error. Por esto les pido 
que me faciliten el test de lista- 
do para comprobar dichos 
programas. 



Sevilla 



En relación al programa 
Areas te recomendamos que 
revises las líneas de la senten- 
cia «draw», pues es muy posi- 
ble que allí tengas el error. 
Cuando la pantalla se te pone 
negra y no puedas leer el men- 
saje de error tienes que pulsar 
SHIFT + Fl para que este men- 
saje te aparezca. 



FELICITACIONES 
T SUGERENCIAS 



Mis felicitaciones van por 
varios motivos. El primero es 
que vais a más cada número, 
especialmente a partir del de 
Octubre. Otro motivo es la in- 
corporación del «Test de Lista- 
do» con el que los usuarios de 
vuestros programas sabremos 
localizar con más facilidad 
nuestros errores y no echarle 
la culpa a vosotros. También 
veo con alegría que habéis in- 
troducido mejoras en la sec- 
ción BIT-BIT. Agrego mis feli- 
citaciones también para Juan 
Núñez por sus dibujos de por- 
tada. 

Pero además de todo eso 
quiero sugerirles algunos 
artículos como por ejemplo 
desarrollar la explosión de 



TEST DE LISTADO 



Quisiera que me contesta- 
ran a varias preguntas y me 
las remitieran por carta. 
l.° En el número de octubre 
publicáis un Test de Lista- 
do. Los númeroB van sa- 
liendo y al final sale un to- 
tal, ¿qué me Indican estos 
números?, ¿con sólo mi- 
rar tales números puedo 
conocer el error que hay? 
Z.° He comprado un progra- 
ma pero por más que quie- 
ra ver el listado el progra- 
ma sigue ejecutándose, 
¿cómo puedo saber qué es 
lo que pasa? 

Marcel Folch 



recibidas no mantenemos co- 
rrespondencia directa. 

1. ° Si sigues las instrucciones 

que damos en nuestro nú- 
mero de octubre verás que 
el uso del Test es muy fácil. 
La primera columna de ci- 
fras corresponde al núme- 
ro de línea y la segunda al 
cálculo de las instruccio- 
nes de cada una de ellas. La 
suma total tiene que coin- 
cidir con el que damos no- 
sotros. En caso de no ser 
así, busca en qué línea del 
listado está la diferencia. 
En ella no encontrarás qué 
error hay , sino que te indi- 
ca que en esa línea precisa- 
mente se encuentra tal 
error. 

2. ° No puedes acceder al lista- 

do porque los programas 
grabados en cassettes tie- 
nen instrucciones de pro- 
tección que impiden cono- 



sprites, hablar sobre la tarjeta 
inteligente e incluir un artícu- 
lo de cómo ganar a determina- 
do juego. 



Te agradecemos tus feUcita- 
clones y tomamos en cuenta 
tus sugerencias. 



IMPRESORA Y 
DISCOS 



Quisiera que me informaran 
por qué hasta el momento no 
hay en el mercado una impre- 
sora que reúna las caracterís- 
ticas de una plotter, diseñada 
para realizar gráficos en colo- 
res y de una margarita, espe- 
cializada en tratamiento de 
texto. 

Sobre las unidades de disco 
tengo mis dudas acerca de las 
pulgadas por las que se incli- 
nan la mayoría de los fabri- 
cantes. ¿De cuántas pulgadas 
es el diskette del IBM/PC? 

También me gustaría que 
pusieran programas más úti- 
les para el ordenador. 

Feo. José González 
La Corona 



Una impresora con las ca- 
racterísticas que mencionas al 
requerir dispositivos muy so- 
fisticados encarecen el pro- 
ducto hasta el punto de dejarlo 
fuera del alcance masivo. Es- 
tas son matriciales especiales 
cuyo precio supera las 100.000 
pts. La mayoría de los fabri- 
cantes de MSX se inclinan por 
dlskettes de 3.8 pulgadas. El PC 
IBM puede emplear dlskettes 
de 3.5", 6 1/4". Paulatinamente 
vamos incorporando más pro- 
gramas de utilidad y tal inten- 
ción está reflejada en los pre- 
mios de nuestro concurso de 
programación. 



pbecio + iva 

Sentimos que por la aplica- 
ción del impuesto el valor 
anadino —IVA— el precio de 
nuestra publicación ee naya 



CARTAS 



La correspondencia para este 
s ecció n debe dirigirse a: MSX 
BTTBA - Input/Output - Roca i 
BatUe, 10-13 - 08023 Barcelo- 
na. No se publicaran aquellas 
certas que no especifiquen 



— 
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PAHASONIC CF-2700 



Un aparato con presencia 

El CF Z700 Panasonic es un aparato 
diseñado con un alto sentido de la estética. 

A ello hay que sumarle las particulares 
y potentes prestaciones de un MSX. 



Una de las grandes compañías 
productoras de elementos elec- 
trónicos e informáticos del mun- 
do es la Matsushita Electric Trading 
Co., Ltd. de Japón. Ella es laque ha po- 
pularizado la marca Panasonic en infi- 
nidad de artefactos electrodomésticos 
y también en el sector de la alta tecno- 
logía, aplicada en muchos casos a la 
industria espacial. 

A la Matsushita se debe la produc- 
ción del CF 2700, microordenador 



cuya base es la norma MSX, que viene 
a incorporarse a la microinformática de 
consumo con miras a reforzar el esta- 
blecimiento de un estándar mundial 
compatible. 

Con este criterio consideramos que 
el aparato Panasonic, partiendo de 
una base común a todos los MSX exis- 
tentes, se distingue por la elegancia y 
solidez de su carcasa y la tremenda 
versatilidad de sus prestaciones. 

Características 
generales 

El modelo CF 2700 Panasonic dis- 

K)ne de una memoria ROM de 32K de 
SX-Basic y 80K de memoria RAM, 
repartida del siguiente modo: 35K para 
el sistema operativo de disco, 16K de 
vídeo y 29K de disposición libre para el 



usuario. Como en todos los ordenado- 
res MSX, esta potencia es fácilmente 
ampliable hasta 1 28K mediante un car- 
tucho apropiado. 

Pero si este aspecto es común a la 
mayoría de los MSX lo que tal vez po- 
damos diferenciar y detallar es el cui- 
dadoso diseño de su carcasa que, 
como ya hemos apuntado, tiene en 
cuenta tanto el aspecto estético como 
la practicidad. Esto significa que a la 
belleza suma un alto sentido de la duc- 
tilidad en el manejo y empleo de sus 
funciones. 

En principio podemos considerar la 
disposición de su teclado de 72 teclas, 
con 5 de función y diez funciones me- 
diante la utilización de SHIFT. El tecla- 
do alfanumérico y el de las funciones 
es de color gris, pero el de estas últi- 
mas está diferenciado por su formato. 



Estas teclas, localizadas en la parte 
superior y colocadas en línea. Las cin- 
co teclas de función muy bien dispues- 
tas en el lado izquierdo, pueden ser 
perfectamente empleadas por el usua- 
rio, aunque tal vez lo criticable sea la 

Rroximidad de las teclas de STOP y 
IOME-CLS que pueden prestarse a 
algún accidente involuntario. Sobre la 
misma línea, aunque en el extremo de- 
recho, se encuentran las teclas SE- 
LECT, INSyDEL 

El teclado alfanumérico es totalmen- 
te profesional, no sólo por el formato de 
teclado, sino también porque carece 
de símbolos gráficos. De todos modos, 
Panasonic España, S.A. da una pega- 
tina transparente con los símbolos grá- 
ficos para que aquéllos que deseen 
puedan pegarlas en las teclas corres- 
pondientes. 



Perfectamente diferenciadas en el 
costado derecho se hallan las teclas 
cursoras, que tienen la forma de un 
diamante y tienen una superficie lo su- 



ficientemente amplia como para que 
su manipulación sea muy cómoda. Por 
otro lado, al no tener tecla de RESET, 
el CF-2700 ha dispuesto el botón de 





FICHA TECNICA 



Microprocesador 

Frecuencia declock 

Memoria ROM 

Memoria RAM 

Modo de texto 

Modo gráfico 

Colores 

Sprites 

Sonido 

Teclado 



Conexión cartucho 
Conexiones directas 



Lenguajes 
Distribuidor 

Precio aproximado 



Z80A 
3.58 MHz 
32K 

64K+ 16KVRAM 

40x24 

256 x 1 92 

16 

32 planos 

3 canales/8 octavas + efectos de sonido 
QWERTY profesional 

72 teclas alfanuméricas y gráficas (5 de función 
con 1 0 funciones programables) 
2 conectares 

grabadora cassette 1 200/2400 bps 
dos joysticks/pizarra gráfica, 
impresora Centronictipo paralelo 
Video/audio 
RF 

BASIC MSX, máquina, ensamblador, Pascal, Logo 
Panasonic España, S. A. 
Gran Vía 525-Barcelona 0801 1 
70.000 pts. 
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conmutación en el lateral izquierdo, al 
que -obviamente- se accede sin nin- 
guna dificultad. 

Conexiones 

Continuando con su línea de diseño, 
que conjuga lo práctico y lo elegante, 
las dos entradas para cartuchos se ha- 
llan en la parte superior derecha, don- 
de no está de más decir que ofrecen un 
acceso directo. En el lateral derecho 
tenemos los conectares de joystick y 
en la parte posterior la entrada para im- 
presora tipo paralelo Centronic, termi- 
nal para cassette, salida de vídeo, para 
conectar al terminal de vídeo del televi- 
sor; la salida de audio, destinada a la 
conexión con la entrada de audio del 
televisor. Asimismo cuenta con la ter- 
minal salida RF, es decir de radio fre- 
cuencia, que conecta con la terminal 
de antena del televisor. 

Accesorios 

Como en la mayoría de los microor- 
denadores de la norma MSX, el CF 
2700 Panasonic viene provisto de una 
serie de conexiones indispensables 
para el usuario. Entre ellos, además 
del cable RF para la conexión con la 
entrada de antena del TV, contamos 
un cable de vídeo, uno de audio, un ca- 
ble de antena y un selector de antena, 
mediante el cual el usuario no tiene ne- 
cesidad de conectar y desconectar el 
ordenador del aparato de televisión, 
pues sólo le basta con seleccionar, la 
opción TV o la de ordenador. Obvia- 
mente también viene provisto de un ca- 
ble para conectar con la grabadora. 

Teniendo en cuenta que el teclado 
es profesional y, en consecuencia no 
dispone de los símbolos y caracteres 
gráficos en el mismo, junto al aparato 
vienen etiquetas transparentes para 
que el usuario principiante pueda ad- 
herirlas a cada una de las teclas, sin 
que tenga necesidad de consultar la ta- 
bla correspondiente cada vez que ne- 
cesita de estos caracteres, al menos 
hasta que se haya familiarizado lo sufi- 
ciente con el teclado. 

Tanto el Manual de Instrucciones y 
la Guía de referencia del BASIC son 
conceptualmente correctos y parten de 
una idea muy didáctica, pero lamenta- 
blemente, la presentación del primero 
no se corresponde con el lujo ni la cali- 
dad del aparato. Lo más idóneo sería 
una nueva edición que recogiera todas 
las correcciones realizadas y adheri- 
das a último momento. 

Como accesorios opcionales Pana- 
sonic dispone de los joystick CF-221 1 , 
una grabadora de datos RQ-8100 de 
1.200 baudios por segundo, pizarra 
gráfica, televisor y vídeo monitor, im- 
presora, etc. 




SI QUIERES ESTAR EN LA VANGUARDIA 



SUSCRIBETE HOY MISMO A 




PJEGOS 



r 



La primera revista de MSX 
de España en ta domicilio 
cada mes. Por el precio 
de DIEZ NUMEROS recibirás 
DOCE. Además ta condición 
de sascriptor te da derecho 
a descuentos y ofertas 
especiales en otros productos. 
MANHATTAN TRANSFER, SJL 

Nombre y apellidos 



Calle .., 
Ciudad 
Provincia 



.. N.° 
Tel. 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 
a partir del número 

FORMA DE PAGO: 
a nombre de: 



C/. Roca i Batlle, 10-12 
08083 

o mediante 
nombre de: 

MAKHATTAIT TRANSFER, 8JL 

Muy importante: para evitar retraaos en 
la recepción de loa números rogamos de- 
talléis exactamente el nnevo número de 
los distritos postales. Gracias. 

TARIFAS: 

España por correo normal Ptas. 1.800,— 

Ptas. 1.700,- 
Ptas. 1.900,- 
Ptas. 3.700,— 




Por J.C. González y 
Feo. J. Guerrero 



El requisito indispensa- 
ble para que puedas acó- 
piar una unidad de dis- 
kette a tu MSX es que 
éste disponga de una me- 
moria RAM de 64K. En 
el caso de que no la ten- 
ga, deberás acoplarle un 
cartucho de expansión 
a 64K, ya que los cartu- 
chos de estas caracterís- 
ticas permiten cargar el 
sistema operativo de dis- 
co, que por su estructura 
interna necesita 38K. 



En el caso de que dispongas de 
unidad de disco, el BASIC resi- 
dente en la ROM del ordenador 
pierde el control sobre éste, dejando al 
mismo tiempo de llevar el control sobre 
las operaciones de entrada/salida. 

Por el hecho de estar trabajando con 
diskettes, este control se vuelve mu- 
cho más complejo, y es llevado por un 
programa muy especializado (Sistema 
Operativo de Disco). Esto también 
crea la necesidad de utilizar nuevos 
comandos e intrucciones, tanto para 
realizar operaciones específicas de los 
diskettes (formateado, copia...) como 
para el manejo de ficheros (secuencia- 
Ies o aleatorios). 

FICHEROS 

Un fichero es un conjunto de datos 
grabados en un diskette bajo un mismo 
nombre. Básicamente podemos hablar 
de dos tipos de ficheros: 

Ficheros secuencia les: En un fi- 
chero secuencia! los datos se almace- 
nan uno tras otro a medida que se reci- 
ben (secuencialmente). La nueva in- 
formación se añade al final del fichero, 
no siendo posible modificar un dato 




que se halle en medio del mismo. De 
ello se deduce que para localizar cual- 
quier información en este tipo de fiche- 
ro debe recorrerse desde su inicio has- 
ta el final, no siendo posible el acceso 
directo a un dato concreto. Para cada 
fichero abierto se reserva una zona en 
la memoria llamada «buffer». Cual- 
quier dato transita por esta zona -bien 



sea transmitido o recibido-, y la trans- 
ferencia de datos se efectúa por blo- 
ques completos. Es decir: hasta que no 
está lleno el «buffer» no se transmiten 
los datos. 

Ficheros aleatorios o de acceso 
directo. Estos ficheros, también llama- 
dos ficheros random se diferencian de 
los ficheros secuenciales en que per- 
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miten la modificación o la lectura de 
cualquier dato simplemente llamándo- 
lo por su número de orden. Son más 
complicados -a nivel de programa- 
ción- de poner en marcha que los fi- 
cheros secuenciales. Sin embargo, re- 
sultan mucho más prácticos a la hora 
de realizar aplicaciones donde sea 
muy importante la actualización de los 
datos del fichero, como por ejemplo la 
gestión de ficheros de clientes, control 
de stocks etc., en los que es necesaria 
la modificación de un dato pero no la 
totalidad del fichero. 

La gestión del espacio disponible en 
el disco es enteramente transparente 
para el usuario, éste no debe preocu- 
parse por el lugar donde se encuentran 
los datos (como sucede con los casse- 
tes). El sistema operativo de disco 
sabe en todo momento donde debe es- 
cribir o buscar un dato y -por lo tanto- 
el usuario tan sólo debe suministrar los 
nombres de los ficheros y comandos a 
utilizar 



EL MSX-DOS 

Esta versión del sistema operativo 
DOS es muy próxima a la que usan los 
ordenadores profesionales de 16 bits 
(MS DOS), y permite al usuario directa- 
mente la gestión de los diskettes o bien 
la carga de otros lenguajes o utilida- 
des. Este sistema está constituido por 
varios programas, encargándose cada 
uno de ellos de diversas actividades 
concretas. 

Este sistema garantiza la actualiza- 
ción de todos los ficheros disponibles 
en el diskette (directorio). 

El BASIC del MSX DOS contiene to- 
das las instrucciones del BASIC MSX 
además de otras específicas para el 
manejo de ficheros de acceso directo, 
y como hemos visto, para el manejo de 
los propios diskettes. Pasemos a ver 
ahora las instrucciones concretas del 
MSX DOS y su empleo. 



COMANDOS DEL 



FORMAT Formatea un diskette vir- 
gen. Esta operación -que es reco- 
mendable realizar antes del uso de 
un diskette nuevo- consiste en es- 
cribir ciertas señales magnéticas en 
la superficie del disco que indican 
las pistas y los sectores. Ejemplo: 
FORMAT A. 

COPY Copia un fichero (fichero fuen- 
te) en otro (fichero destino). Ejem- 
plo COPY A: fuente B: destino. 

DISKCOPY Copia un diskette entero. 
Ejemplo DISKCOPY A: B: 

DIR Representa en la pantalla el direc- 
torio (lista de los ficheros). Ejemplo: 
DIR. 



DELET Destruye el fichero especifica- 
do. Ejemplo: DELETE B: 

RENAME Cambia el nombre de un fi- 
chero por el de otro. Ejemplo: RE- 
NAME: (nombre primero) (nombre 
segundo). 

TYPE Muestra en pantalla el conte- 
nido de un fichero determinado. 
Ejemplo TYPE U: nombre fichero. 

DATE Actualiza la fecha memoriza- 
da por el sistema. Ejemplo: DATE/ 
mes/día/año. 

TIME Actualiza la hora memorizada 
por el sistema. Ejemplo: TIME ho- 
ras/minutos/segundos. 

COMANDOS DEL BASIC 
EXTENDIDO EN DISCO 

FILES Representa el nombre del fi- 
chero o ficheros especificados. Ejem- 
plo: FILES"U:n.° fichero". 

KILL Destruye el fichero especificado. 
Ejemplo: KILL "U:n.° fichero". 

ÑAME Cambia el nombre del fichero 
especificado. Ejemplo: NAME"U: 
nom fichero" AS"nombre nuevo". 

CALL SYSTEM Provoca el abandono 
del BASIC y el retorno al MSX DOS. 

FUNCIONAMIENTO 
DEL SISTEMA 
OPERATIVO CP/M 

Intentaremos en cuatro palabras ex- 
poneros los comandos más habituales 
del sistema operativo CP/M, con el fin 
de que os hagáis una idea de las posi- 
bilidades de este sistema operativo, 
obra de Digital Research. 

COMANDO DIR 

Con la instrucción DIR (de directory) 
obtenemos en la pantalla un listado de 
todos los archivos que tenemos en un 
momento dado en un diskette determi- 
nado. Se teclea DIR y, a continuación 
return, y observaremos que en la pan- 
talla aparecen los nombres de los ar- 
chivos contenidos en el diskette «acti- 
vo» en este momento. Variante: Para 
obtener un listado de algún diskette 
«no activo», que podamos tener aloja- 
do en una unidad suplementaria supo- 
niendo que el nombre de éste sea B, 
haríamos DIR B: 

Si se desea obtener confirmación de 
la presencia o ausencia de un archivo 
determinado, hay que hacer 
DIRARCHI 

suponiendo que ARCHI sea ese fi- 
chero. Esta instrucción admite varian- 
tes DIR B: ARCHI. 

COMANDO ERA 

Para borrar del diskette un determi- 



nado archivo (por ejemplo, ARCHI se 
utiliza la instrucción ERA (de erase). 
ERA ARCHI que admite variantes ERA 
B: ARCHI, o bien las más peligrosas 
ERA* ASM o ERA ARCHI* o ERA**. En 
estas últimas, el asterisco (*) hace de 
comodín y se borran todos los archivos 
que 1) acaban en ASM, 2) empiezan 
con ARCHI, 3) todos; hay que pensarlo 
mucho antes de utilizar estas últimas 
posibilidades de esta poderosa ins- 
trucción dado su gran poder destruc- 
tivo. 

COMANDO REN 

Para cambiar el nombre de un archi- 
vo preexistente se utiliza la instrucción 
REN (de rename). 

En esta instrucción no se admite la 
posibilidad de utilizar archivos de dis- 
kettes. 

COMANDO PIP 

Para copiar un archivo de cualquier 
tipo dejándolo en cualquiera de los dis- 
kettes, se utiliza la instrucción PIP (de 
Peripheral Interchange Program). Es 
uno de los programas del sistema ope- 
rativo de mayor utilización. Suponga- 
mos que tenemos un archivo VIEJO y 
queremos obtener una copia que se 
llame NUEVO: 

PIP NUEVO = VIEJO 

La instrucción admite todas las com- 
binaciones de diskettes de residencia: 
Si estamos con el diskette A como «ac- 
tivo» y queremos que el archivo NUE- 
VO quede sobre el B, haremos 

PIP B: = VIEJO 

Es obligatorio ppner, siempre que 
sea necesario, sufijos de extensión, o 
sea, añadir al final LST, para poder se- 
guir escribiendo sobre NUEVO. 

PIP B: NUEVO. PRN VIEJO. LST 

COMANDO TYPE 

Para leer por pantalla el contenido 
de un archivo. 

COMANDO STAT 

Para conocer el tamaño o el conteni- 
do o la presencia de un archivo en un 
diskette se utiliza la instrucción STAT 
(de status). 

Después de bosquejar los aspectos 
más elementales para el empleo de los 
diskettes, pretendemos que nuestros 
lectores planteen sus dudas y a partir 
de ellas iremos elaborando los próxi- 
mos artículos sobre este tema. 
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2.° GRAN 



PROGRAMA 




CONCURSO 



DEL ANO 



CREA Y ENVIANOS TU PROGRAMA HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 
POR EL «LISTADO DE ORO» Y UNA FABULOSA UNIDAD DE DISCO 






BASES 

1- Podrán participar todos nuestros 

lectores cualquiera sea su edad, con 

uno o más programas. 
Z- Los programas se clasificarán en 

tres categorías: 

A- Educativos 

B- Gestión 

C- Entretenimientos 

3- Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se insertará el cupón- etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 

4— No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5— Junto a los programas se incluirán 
en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarios 
que el autor considere de interés. 

6- Todos los programas han de estar es- 
tructurados de modo claro, separan- 



do con REM los distintos apartados 
del mismo. 

PREMIOS 

7- SUPER JUEGOS EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 
AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en más de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar mera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de in- 
terés, premiando a sus autores. 

FALLO Y JURADO 

10- Nuestro Departamento de Progra- 



mación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de S.J. EXTRA M8X. 

1 1- Los programas recibidos no se devol- 
verán, salvo que el autor lo requiera 
expresamente. 

12- La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13- El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

13 — El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO EXTRA 
MSX 

Roca i Batlle, 10-12 
bajos 

08023 Barcelona 




PROGRAMA 



N. 



NOMBRE DEL PROGRAMA 
CATEGORIA 



INSTRUCCION DE CAnq -A 



AUTOR: 
EDAD: 

CALLE: 

CIUDAD 

N.° DE RECEPCION 



DP .... TEL.: 
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ooooooooooooooooooooooooooo 





PTG0N 





Si (Líderes 
cargar en tu 
ordenador esta 
cassette envía 

HOT MISMO 








r — — CTXPOHT DE PEDIDO 

Si deseo recibir por correo certi- | 
ficado el juego KYPTON. 





□Precio 

□ Precio especial suscriotor 
□ Gastos de envío 



500 pts. 
450 pts. 
70 pts. 




Remito talón bancario de 

pts. a la orden 

de MANHATTAN" TRAJKTSFER, 
SA. 

Nombre y apellidos .... 



•••••«•••••••••••••••••••••••••••••a 



Calle 

N:° Ciudad 

D.P Tel.: 

IMPORTANTE : 

Indicar en el sobre 
MSX CLUB DE CASSETTES 
RocaiBatlle, 10-12. 
Bajos 
08023 Barcelona 





;e Programa sin duda vendrá muy bien a aquellos que todas las semanas 
llenan uno o varios boletos de las quinielas. 8e 
letona una o,^ 




Este programa pregunta por 
tus pronósticos, enumerando 
los partidos del 1 al 14, pero hay 
que introducir siete dobles. En 
los lugares que creas más con- 
venientes. Si no lo haces el orde- 
nador te lo reclamará. 

Errores del tipo X1, 21, etc. el 
ordenador los corrige de modo 



automático. 

Una vez que la quiniela ha sido 
completada, el ordenador .pre- 
gunta si es correcta, en cuyo 
caso hay que pulsar S o N. Tras 
esta operación aparecen en pan- 
talla los dos boletos desarrolla- 
dos en apuestas simples, exis- 
tiendo un tanto por ciento eleva- 



do -según el autor- de que si en 
la reducida se tiene 14, en el de- 
sarrollo también aparece un 14 y 
varios 13 y 12. 

Otra ventaja de este programa 
es de orden económico, ya que la 
reducida -7 dobles, 128 apues- 
tas-, cuesta 1920 pts. mientras 
que la desarrollada sólo 240 pts. 



10 ********** QUINIELAS ******** 
20 ****** POR E R GARCIA ****** 
30 '*** PARA MSX-EXTRA ***** 
40 ■ **************************** 
50 CLS 

60 DIM A*C14) 
70 DIM DC7, 16) 

80 DATA 1,2,1,2,1,2,1,1,2,1,2,1,2,2, 
1 ,2 

90 DATA 1,2,1,1,2,1,1,2,2,2,1,2,2,1, 
1,2 

100 DATA 1,2,2,1,1,1,2,1,1,2,2,2,1,2 
,1,2 

lió DATA 1,1,2,2,1,1,1,2,2,2,1,1,1,2 
2 2 

120 DATA 1,1, 1,1, 1,2,2,2,1;!, 1,2, 2, 2 
,2,2 

130 DATA 1,1,1,2,2,1,2,1,1,2,2,1,2,1 
,2,2 

140 DATA 1,1,2,1,2,2,1,1,2,1,2,2,1.1 
.2,2 

150 FOR 1=1 TD 7 ¡ FOR J=l TO 16 : REA 

D D(I,J) ¡NEXT J ¡NEXT I 

160 FOR 1=1 TO 1 4 ¡ LOCATE 0,I+2-CI>4) 

-<i>8)-d>i i >:print i;tabc4);":":nex 

T I 

170 LOCATE 0,0:PRINT "INTRODUCE TUS 

PRONOSTICOS" 

180 D=0 

190 FOR 1=1 TO 14 

200 LOCATE 4, I+2-C I>4>-< I>8)-< I>1 !) : 
INPUT A*(I) 

210 LOCATE 6, I+2-< I>4>-C I>8)-< I>1 1 ) ¡ 
PRINT A*(I);" 

220 IF A*(I)="21" THEN A*(I)="12": L 
OCATE 6, I+2-CI>4)-(I>8)-(I>l 1 ) :PRINT 



II 



A*< I ) 

230 IF A*(I)="2X" THEN A*(I)="X2": L 
OCATE 6, I+2-<:i>4)-CI>8)-(I>ll > ¡PRINT 
A*CI> 

240 IF A*(I)="X1" THEN A*<I>="1X"¡ L 
OCATE 6, I+2-Í I>4)-< I>8)-C I>1 1 ) ¡PRINT 
A*< I ) 

250 IF LEN <A*(I))>2 OR LEN CA*CT))< 
1 THEN 200 

260 FOR J=l TO LEN(A$< I ) ) ¡B*=MI0*<A* 
< I ),J, 1 > ¡ IF B*<>"1" AND B$<>"2" AND 
B*<>"X" THEN 200 
270 NEXT J 

280 IF LEN(A*C I ) )=2 THEN D=D+1 
290 NEXT I 

300 IF D<>7 THEN LOCATE 0,1 ¡PRINT " 

no hay 7 dobles" ¡beep: goto 160 
310 locate 0,0 ¡print "es correcto ? 
cs/n: 

320 locate 0,1 ¡print " 

330 X*=INKEY$ ¡ IF X*="" OR INSTRf "Nn 

sS",X*)=0 THEN 330 

340 IF X$="N" OR X*="n" THEN 160 

350 CLS¡ FOR 1=1 TO 1 4 ! LOCATE 0,1+2- 

< I>4>-< I>8)-( I>1 1 ) ¡PRINT I ¡ NEXT I 

360 FOR K=l TO 16 

370 0=0 

380 FOR 1=1 TO 14 

390 LOCATE K*2+3, I+2-C I>4)-( I>8)-< I> 
1 1 ) 

400 IF LEN(A$(I))=1 THEN ¡PRINT A*(I 
) ¡ GOTO 430 
4 1 o Q=Q+ 1 

420 PRINT MID$<A*d),D(Q,K), 1 •> 
430 NEXT I 
440 NEXT K 






% § ri\uüi\m ii u 
iiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiii 



450 FÜR K=l T0 8 ¡ LOCATE K*2+2,l:PRI 
NT K JNEXT K 

460 FÜR K=l TO S ¡ LOCATE K*2+ 1 3 , 1 ! PR 
INT K : NEXT K 

470 FOR K=l TO 8 :FORI=0 TO 20 ! LOCAT 
E K*2*2# I ¡PRINT "I": NEXT I : NEXT K 
480 FOR K=l TO 9 ! FOR 1=0 TO 20 : LOCAT 
E K*2+l 8, I SPRINT "|":NEXT I ! NEXT K 
490 FOR 1=2 TO 20 : LOCATE 0,1 ¡PRINT 
|":NEXT I 

500 LOCATE O, O JPRINT" 



i — i — i — i — r 



iiiiiiiitiiiiini 



H 



— I 1 1 1 1 1 1 1 1 1 1 

510 LOCATE 0,2:PRINT"i 

I I I I I I I I I I I" 
520 LOCATE 0,7:PRINT"| 

I I I I I I I I I I I" 
530 LOCATE 0,12: PRINT" | — 

H — I — I — I — I — hH — I — I — I — I — I " 



lili lí 
l i l i lí 



I I I I I 



540 LOCATE 0,16: PRINT" | — 
H — I — I — I — I — I — I — I — I — t — I — I " 

550 LOCATE 0 , 20 ¡ PRINT" 1 — 
j i i i i — i — i — i — i — i — i — i •> 

560 GOTO 560 



I I I I I 



J L 







mínimum 



TEST DE LISTADO 



10 

20 
30 

40 
50 
60 
70 
80 



58 
58 
58 
58 

1 59 
89 

126 
48 



90 
100 

no 

1 20 
1 30 
140 
1 50 
1 60 



48 
48 
48 
48 
48 
48 
•222 
59 



170 
180 
1 90 
200 
210 
220 
230 
240 



- 65 
fc«8 
-194 
-218 
-103 
-177 
-255 
-253 



250 
260 
270 
280 
290 
300 
310 
320 



•247 
80 
•205 
•194 
•204 
•175 
•245 
• 54 



330 
340 
350 
360 
370 
380 
390 
400 



-153 

- 36 

- 7 
- 1 98 

- 81 
-194 

- 93 
-145 



410 -148 490 -205 

420 - 42 500 - 69 

430 -204 510 -204 

440 -206 520 -205 

450 -131 530 -208 

460 -145 540 -212 

470 - 17 550 -166 

480 - 32 560 -201 

TOTAL : 7262 



Para utilizar el Test de Listados que 
que cargar en el ordenador el Programa 



al final de cada programa, recordamos que previamente hay 
lente aparecido en nuestro número 1 0, de octubre, pág. 29. 



FUGAN 




Mil 



********************************* 

J. SEBASTIAN BACH 



10 

20 

30 '* 
40 '* 
50 '* 
60 p * 
70 '* 
80 9 * 

90 ' ******************************** 

100 PLAVUie". "U9", 11 U7" 

110 A$= M R1R105R16G16F#16G8C8E-8G16F#16G8 
A8D8G16F#16G8A8C16D16E-4D16C1604B-805E-1 
6D16E-804G8A-805F16E-16F804A8B-805G16F16 



EXTRACTO DE LA FUGA NUH. 2 
DEL "CLAUE BIEN TEMPERADO" 



G804B805C8D 1 BE- 1 6F4F8L 1 6C04 A-GL8F05A-GFE 
-DE-F04B05CD04B05C4. " 

120 B$="R805C1604B1605C804G8A-805C1604B- 
1605C8D804G805C1604B1605C8D804F16G16A-46 
16F16L16E-05C04BAGFE-DL8C05E-DC04B-AB-05 
C04F#GAF#G4R16L16CDE-FGA-A-A-DE-FGAB-B-B 
-E-FGA-GFE-D805C04B05C4R4.FE-DR804L8A-GF 

GF16E-16FDG4. " 

130 C$= ,, R1R1R1R1R1R2. 04C1603B1604C803G8A 
-804C1603B1604C8D803G804C1603B1604C8D803 
F16G16A-4G16F16E-4. " 
140 PLAV A$.B$.C$ 




TEST DE LISTADO 



10 - 58 
20 - 58 
30 - 58 



40 - 58 
50 - 58 
60 - 58 



70 
80 
90 



- 58 

- 58 

- 58 



100 -18^ 
110 -221 
120 -202 



130 - 43 
140 - 75 



TOTAL : 
1247 





Como se sabe, en este juego, 
la rana tiene que alcanzar la casi- 
lla superior e introducirse en ella. 
No hay que salirse por los bordes 
ni por el extremo superior pues la 
rana morirá en tal caso. Una vez 



alcanzada la madriguera se vuel- 
ve al punto inicial pero las dificul- 
tades aumentan. 

El círculo negro hay que evitar- 
lo pues es la casilla de la serpien- 
te. También deben evitarse los 



círculos blancos. 

El juego tiene seis niveles de 
dificultad y dispones de seis vi- 
das. Si quieres pasarlo a joystick 
tienes que colocar en la línea 
2040D=Stick(1). 



20 REM *-FROGUER-Version 

30 REM * 
* 

40 REM :*:-real izada por: 



■i- 

■i- 



50 REM * 
* 

60 REM * JORGE J LIMARES 



:> REM *-para¡ 



-* 

80 REM * EXTRA MSX 

-* 

90 REM ***^*#3jC*##****##3t£*###*### 
** 

1 00 H=5 : G=0 

1 1 0 KEYOFF : COLOR 15,1,1; CLS 

120 LOCATE 1 , 1 : PRINT"FRQGUER - FRO 

GUER - FROGUER " 

130 LOCATE 1 , 7 ¡ PR I NT " EL I GE GRADO D 

E DIFICULTAD ENTRE" 

140 LOCATE 1 ,9: INPUT"EL CERO Y EL 

CINCO" ; Y ¡ IFY>5THENG0T0 1 40 

1 50 CLS : COLOR 11,1,1 

160 B=2*Y:C=-B 

1 70 SCREEN2 ,2,0 

1 80 REM 

1 90 REM 

2Ó0 REM diseño de pantalla 
21 0 REM **#****Sfc##*##j|c##*:|RK# 
220 REM 

230 DRAW" bmO , 0s20d4r 25s4r 2s20u3r 4 




d3r21 s4r3s20U41Sl " 
240 DRAW" BMO , 80S20R5 1 D4L5 1 U4" 
250 PA I NT C 1 0 , 1 0 ) , 11 ¡ P A I NT CIO, S5 ) , 
1 1 

260 P A I NT C 1 60 , 1 0 ) , 1 1 : PA I NT ( 250 , 1 0 
> , 1 1 

270 DRAW" BMO , 1 30S20R5 1 S4D 1 1 S20L5 1 
S4U11" 

280 PAINTC 1 0 , 1 85 ) , 11 
290 OPEN" grp ¡ " AS 1 

300 C0L0R4 : PRESETC 1 0 , 5 > ! PRINT#1 , " 

FROGUER" : PRESETC 1 60, 1 0) ! PRINT#1 , " 

por J.J.L.P" 

310 CIRCLEC 137,90) ,7, 1 

320 PAINTC 137, 90) , 1 

330 C I RCLE C 57 , 47 ) , 4 , 1 5 

340 PAINTC 57', 47) , 15 

350 C I RCLE C 2 1 8 , 47 ) , 4 , 1 5 

360 PAINTC 21 8, 47), 15 

370 CIRCLEC 137,47) ,4, 15 

380 PA I NT C 1 37 , 47 ) ¡ 1 5 

390 PLA Y" 0 1 L64V 1 5CDEFGAB02CDEFGAB 

" , "vi 516403CDEFGAB04CDEFGAB" , " 164 

vi 50SCDEFGAB06CDEFGAB" 

400 PLAY"S10M27504" 

410 REM 

420 REM 

430 REM GRAFICOS 

440 REM ***#******^****#Sc#*ít** 

450 REM 

460 F0RX=1T016 
470 READD* 

480 Q*=6*+C'HR*< VALC "&B"+LEFT*C D*, 

8) ) ) 

490 L*=L*+CHR* C VAL C " &B" +R I GHT$ C D* 







































570 DATA 
580 DATA 



,8>) ) 
500 NEXTX 

5 1 0 SPR I TE* C 1 > *<3*+L* 
520 DATA 0000000000000000 
530 DATA 0000000000000000 
540 DATA 0000000110000000 
550 DATA 0001 001 1 1 1 001 000 
5G0 DATA 0001001111001000 
0001 00 I 1 1 1 001 000 
00001 11111111 000 
000000 lili 000000 
000001 11111 00000 
000001 11111 00000 
0001 01 11111 01 000 
0001 111111111 000 
0001 1 0000001 1 000 
0001 000000001 000 

o o o ó o o o o o o o o o o o ó 

o Ó O O O O O O O O O Ó o o o o 

A*=A1*+A2*+A3*+A4*+A5*+A6*+A7 



590 
600 
61 O 
620 
630 
640 
650 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



660 DATA 
670 DATA 

680 



tfc A •""« d: 

630 F0RI=1TQ16 
700 READB* 

7 1 O C*=C*+CHR* C VAL ( " &B" +LEFT* ( B* , 
8 ) ) ) 

720 N*=N*+CHR*< VALC "&B"+RIGHT*< B*< 

, 8 ) ) ) 



730 

740 

750 

760 

770 

780 

790 

800 

81 O 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

8 ) ) ) 

930 

, 8 ) > 

940 

950 

960 

970 

980 



NEXTI 

DATA 0001 1 1 111 111 1 1 1 1 
DATA 001 1111111111111 
DATA 01 1 1 101 1 11 1 1 111 1 
DATA 01 1 1001 111111111 
DATA 1 1 10001 11 1 1 1 11 11 
DATA 1 í 1)0001 11 1 1 1 1 1 11 
DATA 1 100001 11 1 1 11 111 
DATA 1 111 1 1 1 11 111 1 1 1 1 
DATA 111 1 1 11 1 11 11 111 1 
DATA 1 1 111 1 1 1 1 11 1 11 1 1 
DATA 1111111111111111 
DATA 01111 00000001 1 1 1 
DATA 01111 00000001 1 1 1 
DATA 0*0 1 1 000000<500 1 1 O 
DATA 0000 O O O O Ó O O O O O O O 
DATA 0000000000000000 
F0R,T=1T016 
READMÍ 

X*=X*+CHR* C VAL < " &B" +LEFT* ( M* , 

F*=F*+CHR* C VAL C " &B" +R I GHT* < M* 
) 

NEXTJ 

DATA 0000000000000000 
DATA 0000000000000000 
DATA 0000000000000000 
DATA 001 1 1 100001 1 1 100 



390 DATA 001 1 1 1 00001 11111 
1 000 DATA0001 1 0000001 1 001 
1010 DATA01 11111111111111 
1 020 DATA001 1111111111111 
1030 DATA001 1111111111111 
1040 DATA01 1 11 1 1 1 111 1 1 1 1 1 
1 050 DATA0001 1 0000001 1 001 
1 060 DATADO 1 1 1 1 00001 11111 
1 070 D AT AOO 1111 0000 lili 00 
1 O 8 O DATA O O O O O O O O O O O O O O O O 
1 O 9 O D A T A O O O O O O O O O O O O O O O O 
1 1 00 DATAOOOOOOOOOOOOOOOO 
1110 FÜRI=1T016 
1 1 20 READE* 

1 1 30 V*= V*+CHR* < VAL < " &B " +L.EFT* < Eí> 
, 8 ) ) ) 

1 1 40 J*=J*+CHR* C VAL ( " &B" +R I GHT* ( E 

$ , 8 ) ) ) 

1 150 NEXTI 

1 1 60 DATA 0000000000000000 
1 1 70 DATA 0000000000000000 
1 1 80 DATA 0000000000000000 
1190 DATA 0011000000000000 
1200 DATA 0111100000000000 
1210 DATA lililí 0000000000 
1 220 DATA 110111 000000001 O 
1 230 DATA 110111 0000000 I 1 1 
1 240 DATA 1111111 00000 1101 
1 250 DATA 0111111 000001 1 00 
1260 DATA 0000001100011000 
1 270 DATA 0000001 110111 000 
1280 DATA 0000000111110000 
1290 DATA 0000000011100000 
1 300 DATA 0000000000000000 
1 31 O DATA 0000000000000000 
1320 F0RI=1T016 
1330 READK* 

1 340 P*<=?P*+CHR*< VAL C "&B"+LEFT*< K* 
, 8 ) ) ) 

1 350 D*=0*+CHR* ( VAL ( " S«B " +R I QHT* < K 
$ , 8 ) ) > 
1360 NEXTI 

1 370 DATA 0000000000000000 
1 330 DATA 0000000000000000 
1390 DATA 001 10000 111 00000 
1 400 DATA 1 001 1 0001 11111 00 
1410 DATA 1 1001 1001 1111110 
1 420 DATA 1 1 1 001 1 001 1 0001 O 
1 430 DATA 1111 00 110111 0000 
1 440 DATA 01111 00 I 1 1 1 00000 
1 450 DATA 00 111 11 111 1 00000 
1 460 DATA 0001 1111111 00000 
1 470 DATA 00001 111111 00000 
1480 DATA 011 1 lililí 1001 1 1 
1 490 DATA 10111111111 001 00 




# m « # ^ i 





\ 



1 500 
1 5 1 0 
1 520 
1 530 
1 540 
1 550 
1 560 
1 570 
1 580 
1 590 
1 600 
1 6 1 0 
1 620 
1 630 
1 640 
1 650 
1 660 
I 670 
1 630 
1 630 
1 700 
1710 
1 720 
1 730 
1 740 
1 750 
1 760 
1 770 
1 780 
1 790 
1 300 
1 81 0 
1 320 
1 830 
1 840 
1 850 
1 860 
1 870 



data 0)1 11 1 TI 1*1 1 1 1 100 
DATA 1 00000 1 1 00000 1 1 1 
DATA 00001 1 01 1 00001 I 1 
SPRITEÜK 1 1 :>=v*+..T* 
SPRITE*C2)=C*+N* 
SPRITE*C3}=C*+N* 
SPRITE*C4:>=X*+F* 
SPRITE*<S:> = X*+F* 
8PRITE*£6>=X*+F* 

sprite*c7>=c*+n* 
spr i te* c 8 ) *c*+n$ 
sprite*c9>=x*-+f* 
sprite*< 10>=x*+f* 

SPRITEfC 12>=C*+N* 
SPRITE*C 13>=X*+F* 
SPR I TE* £ 1 4 ) =X*+F* 
SPRITE*< 16>=V$+.:r$ 
SPRITE*< 1 7 )*V*+jFiji 
SPR I TE* C 1 8 ) »V*+J$ 
SPRITE*£ 1 9 }=P*+0* 
SPR I TE* £ 20 ) =P*+0* 
SPR I TE* (21 }=P*+0* 
SPR I TE* £ 24 ) =P*+0* 
REM 
REM 

REM variables 
REM 

REM 

X * 1 30 : Y= 1 76 : N= 1 : t»2S6 
REM 

REM * * * * * :+•: * * * * * * * * * + * $ * $ 
REM BUCLE PRINCIPAL 

REM #tt*XX*t%**%t%Wí*X%*X 
REM 



1 

1 890 
1 900 
1 9 1 O 
1920 
1 930 
1 940 
1 950 
1 960 
4 

1 970 
1 980 
1 990 
2000 
20 1 0 
2020 
2030 



PUTSPRITE1 , C 
PUTSPR I TE2 , C 
PUTSPR I TES' , < 
PUTSPR ITE4, C 
PUTSPR I TES , £ 
PUTSPR I TES, £ 
PUTSPR ITE7, ( 
PUTSPR I TES, £ 
PUTSPR ITE9, £ 
PUTSPR ITE1 O, 
PUTSPR I TE 1 1 , 
PUTSPR I TE 1 2 i 
PUTSPR I TE 1 3 , 

PUTSPR I TE 1 4 , 
PUTSPR ITE1 6, 
PUTSPR ITE1 7, 
PUTSPR ITE1 8, 
PUTSPR ITE1 9, 
PUTSPR ITE21 , 
PUTSPR I TE24 , 



X , Y ) , 1 2 

T , 1 40 > , 4 

T* 1 . 5 .. 1 02 > , 6 

N+70 ,162); 13 

N*l . 5, 120) , 13 

m 1 . 5+60 , 1 20 ) , 6 

T+60 , 140) , 6 

T* 1 . 5+60 , 1 02 ) , 4 

N* 1 . 5+ 1 70 , 1 20 ) .. 4 

£ N , 1 62 > , 6 

£ T# 1.5, 80 ) , 8 

£ T+ 1 50 , 1 40 ) , 8 

£ T* 1 .5+1 50 , 1 02 ) , 

0 

< N+ 1 70 , 1 62 ) , 5 
£ T , 60 ) , 1 3 
(T+80, 60) , 13 

£T+170,60),4 
£ N , 1 9 ) , 8 
£ N+ 1 70 , 19), 4 
£ N+60 . 35 > . 8 





2040 D--STICKCO) 
2050 SPRITEON 

2060 I FD= 1 THEM Y= Y-20 : I FD= 1 THENPL A 

Y" 164c b" : IFD=1 THENG=G+1 

.2070 IFD=5THEMY=Y+20: IFD=STHENG=G 

-1 : IFD=5THEI\IPLAY"164o4cb" 

2080 IFD=7THENX=X-20¡ I FD~-7THENPL A 

Y"164cb" 

2090 IFD=3THENX=X+20: IFD=3THENPLA 
Y"164cb" 

2 1 00 I FY>= 1 77THENY= 1 77 

21 1 O IFXOl 0THENH=H+1 : IFX OI OTHEN 

2290 

2120 IFX>=220THENH=H+1 ! IFX>=220TH 
EN2290 

2130 IF X = 130 AND Y=76 THENH=H+1 ¡ 

IF X=130 AND Y=76 THEN 2290 

2140 IF X=50 AND Y=3S THENH=H+1 : I 

F X=50 AND Y=36 THEN 2290 

2150 IFX=210 AND Y=36 THENH=H+1 ! I 

F X=210 AND Y«36* THEN 2230 

2160 IFX=130 AND Y=36 THEN H=H+1 ! 

IFX=130 AND Y=36 THEN 2290 

2 1 70 I FX=1 30ANDY-O5THEN2400 

2180 IF Y<=15 AND XO130 THEN H=H 

+ 1IIF Y OIS AND XO130 THENGÜTO 2 

290 

21 90 T=T-2+C : IFT<=1 THENT=256 ! GOTO 
1 840 

2 2 O O N - N + 3 + B : I F N > - 2 5 6 TU E N N = 1 : GOTO 



1 840 



2210 SPR I TE OFF 

2220 ON SPR I TEG0SU8229O 

2230 GOTO 1840 

2240 REM 

2250 REM J|C*^**#t**^*****íí:*5t»|:# 

2260 REM Sy8IWTÍNAS*****íf**«** 

2270 REM # * # # * * # # * # :*: # * # :£ * * * * # # # 



) REM 



. tí 



2290 PLAY" 140adgl64o6bab 
2300 H=H-1 

2310 IFHO-STHENCOLOR 1,1,1: IFH< = 

-5THENGQT02440 

2320 F0RI=1T015 

PUTSPR I TE 1 , £ X , Y ) , I 



2330 
2:340 
2350 
2360 



NEXTI 



F0RV=1T0200:NEXTV 
GOTO 1730 
2370 PLAY"L32AACDEFGAA . CDEFG . CDEF 
G . AACDEFGL64BB . BB . 05CDEFG" 
2380 GOTO 1840 
2390 SPRITESTOP 
2400 G=G+1 00 ¡ B=B+ . 5 ! C=C- . 5 
24 1 O X* 1 30 : Y= 1 76 ! PLAY" 1 64o2c dddCD 
DDD" 




• ••••• 






\ 



2420 FQR I = 1 T0 1 50 ! NEXT I 
2430 GOTO 1840 

2440 CLS ; SCREENO : KEYOFF : COLOR 1 5 , 
1 , 1 

2450 SOUND 10,1 5 ! S0UND9 , 1 5 ! FOR 1 = 1 T 
O jíl 5 5 

2460 SOUNDO, I ! SOUND 1 , I i S0UND2 , I 
2470 NEXTI 

2480 SOUND 1 O , O ! SQUND9 , O 

2490 LOCATE 1,4; PRIMT " ******* F I N 

DEL JUEGO **" 

2500 LOCATE 1,8: PR I NT " HAS CONSEGU I 
DO" ; G ; "PUNTOS" 




251 O LOCATE! ,14; PRINT" ! ! ! ! INTENT 
ALO DE NUEVO CAMPEON ! ! ! " ¡ PLAY"S3 
MI 50005L32AA. DD. EFG . EFGGGL64ABABB 
BB" # " s8m 1 500o3 1 32 v 1 5aa . dd . ef g . ef g 
ggl64ababbb" , " vi S132s8ml 500o4aa . d 
d . e f g . e f ggg l G4ababbb " 
2520 END 




TEST DE LISTADO 

10 - 0 380 - 92 750 


























46 


1 1 20 


-240 


1 490 


, , 


1 43 


1 860 


- 1 56 


2230 


-206 


•~"t 

20 


íj 


1* u 


— Z4<¿ 


7b0 






1 1 30 


-1 86 


1 500 





1 4S 


i 870 


- 1 97 


2240 


- 0 
— 


30 


— íj 


4UU 


— jy 


770 




4 r:: . 
. i. ._t 


1 1 40 




1 S 1 0 


— 


1 -«O 

1 .111 


1 880 


1 52 


22S0 


0 


A /"'. 


— íj 


4 1 u 




"7 tít i"\ 




4^ 

A-I- 


1 1 SO 


-204 






1 39 


1 390 


.._ i r 7" 


2260 


O 


bu 








"7 O /""i 




4^ 


1 1 60 


-132 


"1 530 




30 


i 9 00 


-1 69 


2270 


- 0 

*— * 




- 0 


430 


- 0 


ROO 




44 


1 1 70 




1 540 






1 9 1 0 


- 1 6 1 




— (") 


"7 i"\ 

7Q 


— u 


*+ <♦ w 


U 






43 


1 1 80 


— . 1 


1 550 




9 


i 920 


- J 56 


2290 


-161 


oU 


— \J 


A E H 




O O /"'i 




48 


1 1 90 


- 1 34 


1 560 




• ■•;% g 


1 930 


-1 26 


2:300 


-131 


y u 


— \J 


/f fi A 


¿L 1 1 


o o r> 




48 


1 200 


- 1 36 


1 570 




24 


'! 940 


162 


23 1 0 




1 00 


-206 


470 


-239 


840 




48 


1 2 1 0 


1 .111 


1 580 


i MI< 


•;:« c 


1 950 


- 8 


2320 


-1 55 


1 10 


*T.' *T' 
"*** ■ - j 


480 


- | 55 


350 




-40 


1 22 O 


_ 1 o o 


1 590 




1 :' :: ¡ 


1 960 


-1 64 


O O O 
4¿ •_.« IJ 




1 20 


-•-.-¡7 


45 0 


- 1 66 


860 




1 40 


1 230 


-1 40 


1 600 




1 4 


l v 970 


- 43 


2340 


-204 


1 30 


-240 


500 


-219 


870 




1 36 


1 240 


-142 


1610 




•">o 


í 930 


- 41 


2350 


-156 


1 40 


-246 


51 0 


- 9 


830 




•".*• o 


1 250 


-140 


1 620 




.-,-7 


1 990 




2360 


• 1 45 


1 50 


~ 44 


520 


-132 


890 




i '"i 1 *~* 
i •_■ 


1 260 


-136 


1 630 




16 


2000 


-206 


2370 




1 60 


- 48 


530 


— 1 32 


900 




197 


1 270 


— I «z«y 


1 640 




3Q 


201 0 


-250 


O *T.» O í*"> 


-206 


1 70 


- 84 


540 


-134 


91 0 




248 


1 280 


- 1 37 


1 650 




•_' 1 


2020 


-1 62 


o •ir* o í"> 
¿ 


- 87 


1 80 


- 0 


550 


- 1 38 


920 




1 98 


1 290 


- 1 35 


1 660 




35 


2030 


--• 75 


2400 


- 44 


1 90 


0 


560 


- 1 38 


930 




i c ■'-» 

i . m i 


1 300 




1 670 




36 


2040 


- 54 


241 0 


-177 


200 


- 0 


570 


-138 


940 




205 


1310 




1 680 




37 


2050 


— Q *3 


2420 




2 1 0 


- 0 


580 


-1 41 


950 




I •_' X- 


1 320 


-196 


1 690 




o— 


2060 


f Km 


2430 


-206 


220 


- 0 


590 


~ 1 36 


960 




1 O O 


1 330 


-246 


1 700 




o o 


2070 


-247 


2440 


- 49 


230 


-249 


600 


- 1 38 


970 






1 340 


- 1 80 


1710 




39 


2080 


_ . *™« o 

a:» 


2450 


-1 18 


240 


-1 1 7 


6 1 0 


■•• 1 38 


980 




1 40 


1 350 


-179 


1 720 




42 


2090 


-229 


2460 


— O IT. 


250 


j¿ 7 


620 


-140 


990 




1 42 


1 360 


-204 


1 730 




0 


21 00 


99 


2470 


-204 


260 


- 40 


630 


-142 


1 000 




1 37 


1 370 


- 1 32 


1 740 




0 


2 1 t 0 


- 46 


2480 


-1 1 1 


270 


- 1 97 


640 


-1 36 


1010 




147 


1 380 


- 1 32 


1 750 




0 


21 20 


-206 


2490 




2S0 


- 99 


650 


- 1 34 


1 020 




1 46 


1 390 


-137 


1 760 




0 


2130 


-1 12 


2500 


-245 


290 


- 60 


660 


-1 32 


1 030 




1 46 


1 400 


-141 


1770 




o 


21 40 


-1 28 


25 1 0 


- 81 


300 


-1 94 


670 


- 1 32 


1 040 




147 


1 4 1 0 


- 1 43 


1 780 




59 


21 50 


-1 92 


jL. *J 


- 1 29 


3 1 0 


i po 


630 


._ 1 O O 
\ »...••_' 


1 050 






1 420 


-1 40 


1 790 




0 


2 1 60 


mm **-* ""*•' 






320 


1 2-~» 


630 


- 1 96' 


1 060 






1 430 


-141 


1 800 




0 


2170 


-248 






330 


- 74 


700 


-237 


1 070 




\ 40 


1 440 


-140 


1 8 1 0 




0 


2180 


- 61 


TOTAL : 


340 


- 12 


71 0 


-145 


1 080 




1 32 


1 450 


- 141 


1 820 


Mi 


0 


2190 


- 19 


294 




350 


— xi 3 5 


720 


- 1 68 


1 090 






1 460 


-140 


1 830 




0 


2200 


-207 






360 


- 1 73 


730 


-204 


1 1 00 




132 


1 470 


- 1 39 


1 840 




45 


2210 


- 1 78 






370 


-154 


740 


-145 


1110 




1 96 


1 48'b 


- 1 45 


1 850 




102 


i i — o™ V.' 


-241 








I 





Tras una presentación gráfica del 

empezará a ejecutarse preguntándonos pri- 
mero el tema sobre el cual haremos el estudio. 
Como tal vez no se entienden las siguientes pre- 
guntas que Irán 



EJEMPL0 1 



1 
2 
3 
4 



25 
32 
47 
18 



EJEMPLO 2 

1- 2 

2- 3 

3- 4 



..... 



32 
42 
18 



A la primera pregunta en pantalla deberemos 
responder que sí, si vamos a realizar una estadísti- 
ca del tipo 1, y no si es del tipo 2. Con sólo apretar la 
«s» o la «n» el ordenador ya lo entiende aunque no 
acabemos de escribir la palabra. 

La primera estadística tiene una distribución de 
frecuencias con valores sin agrupar y la otra es de 
valores agrupados. SI es del tipo 1 el ordenador, 
ahora, le pedirá la distribución de frecuencias, y 
habrá que Indicarle uno a uno los valores de le tz- 
o sea, 1 (enter), 2 (enter), 3 (enter)... así 



ya hemos introducido los 
FIN y pulsaremos enter. 

Ahora nos pedirá les frecuencias absolutas y le 
daremos uno a uno los valores ds la derecha, o 
sea, 25, 32, 42, 18, siempre seguidos de enter o re- 
turn. Aquí cuando hayamos acabado podemos 
usar el FIN, pero, el ordenador ya sabe cuando le 
hemoa introducido el último valor cambiando au- 



Cuando hayamos acabado las acciones anterio- 
res, nos cambiará la pantalla y no tendremos que 



clones que más nos interesen y el 
Irá diciendo los resultados. 

La opción 4 nos permite realizar otro estudio sin 
tener que romper el programa. Elijamos la opción 4 
y vayamos con el 2.° tipo de estadística. 

Después de decirle el tema sobre el que vaya- 
mos a realizar el estudio, responderemos a la si- 
guiente pregunta en pantalla con n ya que ahora la 
aisiriDucion ae 



Ahora, Igual que antes, debemos decirte Is distri- 
bución de frecuencias, es decir la columna de la 



izquierda. Referido a nuestro ejemplo actuaremos 
de la siguiente manera. 1(ent), 2(ent), 2(ent), 3<ent), 
3(ent), 4<ent), 4(ent), 5(ent). No nos dejaremos nin- 
gún valor por señalar. Tengamos en cuenta que 
aquí, el ordenador no nos va a admitir máa de cin- 
co cifras por cada valor. No nos admitirá el 1 60000. 
Pero esto solamente cuando le indiquemos la dis- 
tribución de frecuencias de valores agrupados. En 
los demás casos nos admitirá hasta 8 crfraa. 

Cuando hayamos Indicado los valores escribire- 
mos FIN(ent). Se nos borrará la pantalla y ahora de- 
beremos indicarle las frecuencias absolutas, es 
decir, los valorea de la derecha, 25, 32, 42, 18 alem- 
pre seguidos de enter. 

Ahora ya sólo tenemos que elegir la opción de- 
seada y sólo habrá que indicarle una cosa que será 
cuando queramos ver la gráfica, ea decir, el diagra- 
ma. Entonces el ordenador nos preguntará si la 
amplitud ds los Intervalos es constante. En nues- 
tro caso habría que decirle que sí (S). Habrá que 
decirle que no cuando por ejemplo al final, en vez 
de un 5 hubiera un 7. Aquí la amplitud del Intervalo 
no es constante ya que de 2 a 1 la diferencia es 1 o 
de 3 a 4 la diferencia también es 1, pero de 4 a 7, la 
Querencia es o. 
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PRINT#1 , "ESTA 



'**** PRESENTACION **** 
' 

' **** ESTAD I ST I CA **** 

3jC •*^* •4** *^* 

0PEN"GRP: "AS#1 
DEFUSR1 =65 ¡ DEFUSR2=68 
COLOR 4,3,8 
SCREEN 2 
A=USR1 (0) 

PRESET ( 85 ,10): COLOR 1 
DISTICA" 

100 FOR X=0 TO 150 STEP 7 

110 LINE ( X+50, 20)-í X+50, 1 67) 

120 LINE (50, X+20)-< 197, X+20) 

130 NEXT 

140 A=USR2C0> 

150 FOR X=0 TO 50 

160 LINE (X+50, 146-X)-(X+54, 1 46-X ) 
170 NEXT 

180 FOR X=50 TO 70 

190 LINE (X+50,46+X)-CX+54,46+X) 
200 NEXT 

210 FOR X=70 TO 142 

220 LINE (X+50, 1 86-X )-( X+54 , 136-X) 
230 NEXT 

240 A*="T25S04L6CR64L16CR64CR64L1GL4CGC 
L1G" 

250 A$="T25504L6CR64L1 6CR64CR64L1 GL4CGC 
Ll G" 

260 B*="T25504L6ER64L1 6ER64ER64L1 05CL40 
4E05C04EL105C" 

270 C*="T*25503L6ER64L16ER64ER64L1 04CL40 



mu :,m m m m e M 



3E04C03EL104C" 

280 D*="T25505L6ER64L1 6ER64ER64L1 06CL40 
5E06C05EL106C" 
290 FOR X=0 TO 1 
PLAY A$ 
PLAY B$ 
NEXT 

PLAY B$,C$,D$:PLAY B*,C*,D* 
FOR X=l TO 6000: NEXT 
COLOR 1,4,4: KEY OFF 

' i***:*:*:*: INICIO 
' * :t: ^: :#c : I: 

SCREEN 0 : DIMA$ ( 20 ) ! D I MB* ( 20 ) : D I M C* 



DI ME EN MENOS DE 6 LETR 
VAS A HACER EL ESTUDIO' 1 



300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
( 20 ) 

400 CLS: INPUT 
AS SOBRE QUE 

;D$ 

410 A=LEN(D*):IF A>6 THEN 400 
420 PRINT:PRINT:PRINT" ES LA DISTRIBUCI 
ON DE FRECUENCIAS CON VALORES SIN 

AGRUPAR CS/N)?" 

430 E*=INKEY$:IF E*="" THEN 430 
440 IF E$="S" THEN 450 ELSE 610 
450 CLS 
460 ' 

470 TOMA DE DATOS ****** 

480 ' a************************** 
490 B=0 : C=0 : E=0 : U=9 : Y=0 : Bl =999999 c ^# : P 
RINT" AHORA ME VAS A DECIR LA DITRIBUC 
ION DE FRECUENCIAS" 
500 C=C+1 
510 INPUT A*(C) 



520 IF A*CC.> = "FIN" ÜR ASKC) = "fin" THEN 
730 

530 1F C>=13 THEN 730 

540 D=LEN<A$CC) ) :T=D: IF D>8 GOTO 510 

550 IF D>E THEN F=D 

560 IF D>E AND D>=F THEN E=D 

570 IF T<U THEN V=T 

580 IF T<U AND T>=V THEN U=T 

590 GOSUB 2670 

600 GOTQ 500 

610 CLSIPRINT" ME VAS A DECIR LA DISTR 
IBUCION DE FRECUENCIAS DE LA SIGUI 

ENTE FORMA. PRIMERO EL VALOR DE LA 

I ZQU I ERDA . PRES I ONA RETURN . DESPUES 

EL VALOR DE LA DERECHA. PULSA RE 

TURN Y DE NUEVO OTRA VEZ IGUAL" 

620 B= 1 ! C=0 ; E=0 ; 1=0 : Y=0 B 1 =999999939** 
630 C=C+l:IFC>=13 THEN 730 
640 INPUT A*(C> 

650 IF A*(C)="FIN" OR A*CC)="fin" THEN 
730 

660 INPUT C*CC) :D=LEN(A*(C) ) :G=LEN<C*ÍC 

)>:H=D:IF D>5 OR G>5 GOTO 640 

670 IF D+G>E THEN F=D+G 

680 IF D+G>E AND D+G>=F THEN E=D+G 

690 IF H>I THEN J=H 

700 IF H>I AND H>=J THEN I=H 

710 GOSUB 2670 

720 GOTO 630 

730 CLSIPRINT" AHORA DIME Lfi$ FRECUENC 
IAS ABSÜ- LUTAS CORRESPONDIENTES 

A CADA DISTRIBUCION" :C2=0!K=0: 

M=0 : 1 1 =0 : J 1 =999999999** 

740 K=K+1 : IFK>=21 THEN 910 ELSE IF K=C 

THEN 870 

750 INPUT B*<K) 

760 IF B*0O="FIN" OR B*<K)="fin" THEN 
870 

770 L=LEN<B*(K)? : IF L>8 THEN 750 

780 IF L>M THEN N=L 

790 IF L>M AND L>=N THEN M=L 

800 G1=VAL(B$CK) ) :H1=G1 

310 IF G1>I1 THEN K1=G1:X=K 

820 IF G1>I1 AND G1>=K1 THEN I1=G1 

830 IF HKJ1 THEN L1=H1 

840 IF HKJ1 AND H1>=L1 THEN J1=H1 

350 IF C2=l THEN RETURN 

860 GOTO 740 

870 C=C-1 :K=K-1 

880 ' *************************** 

390 '**** DATOS EN PANTALLA **** 
900 '*************************** 
910 SCREEN 2 
920 IF F<5 THEN F=5 

930 CLS:PRESETC20,0) :PRINT#1 ,D*:FOR X=l 
TO C 

940 PRESET C 20 , X*10) :PRINT#1 , A*<X) 
950 IF B=l THEN PRESET ( 1*1 0+20 , X* 1 O ): PR 
INT#1 , G* C X > 1 PRESET ( 1*10+14, X*10) :PRINT 
#1 , "-" 

960 PRESET C F*l 0+20 , X*l O) : PRINY#1 , B*C X ) 
970 LINE (15,X*10~2)-<:20+CF*10) + <N*10), 
X*10+8), , B 
980 NEXT X 

990 LINE CF*10+15,8)-<F*10+15,C*10+8) 
1.000 LINE <5, 130)-Í255, 191 ) , 4 , BF 

_____ — _— ^— — __________________________ _-^_-------- — -—- 



1 130 
1 140 
1 1 50 
1 160 

1 170 
1 180 



1010 LINE (5, 130>-<255,191 ) , ,B 
1 020 ' ****************** 
1030 '**** OPCIONES **** 
1 040 ' ****************** 

1050 PRESETC 10, 183) :PRINT#1 , "ELIGE DPCI 
ON 1-4" 

1060 PRESET C 10, 143) :PRINT#1 , "1-Variabl 
e estadística" 

1070 PRESET (10, 153) :PRINT#1 , "2-Medidas 

de posición central" 
1030 PRESET C 10, 163) :PRINT**1 , "3-Medidas 

de dispersión" 
1090 PRESET C 10, 173) :PRINT#1 , "4-0tro es 
tudio" 

1100 F*="" :F*=INKEY* 

1110 ON VALCF*) GOSUB 1160,2760,3230,40 
O 

1 1 20 GOTO 1 1 00 

p *^** *^** * ^ - *^** j^jj * ^* *^.* 

'****** OPCION 1 ****** 

•^s .^C .^s $\ -^í 

LINE C5, 130)-C255, 191 ) , 4 , BF 
LINE (5, 130)-C255, 191 ) , ,B 
PRESET (8, 133) :PRINT#1 , "1-Frecuenc 
ia absoluta acumulada" 

1190 PRESET (8, 143) :PRINT#1 , "2-Frecuenc 
ia relativa" 

1200 PRESET (8, 153) :PRINT#1 , "3-Frecuenc 
ia relativa acumulada" 

1210 PRESET (8, 163) :PRINT**1 , "4-Porcenta 
jes de fi y Fi" 

1220 PRESET ( 8 , 1 73) : PRINT#1 , "5-D i agrama 
s" 

1230 PRESET ( 3 , 1 83 ) ! PRINT#1 , "6-LISTADO" 
1240 G$="" :G*=INKEY* 

1 250 ON VAL ( G* ) GOSUB 1 270 , 1 350 , 1 450 , 1 5 
80, 1720,910 
1260 GOTO 1240 

1270 0=0:LINE í <F+2)*10-4,0)-<255, 129), 
4,BF 

1230 PRESET ( ( F+2 )* 1 O , O ) ! PRINT#1 , "Ni " 
1290 FOR X=l TO K 
1300 P=VAL(B$CX> ) 
1310 0=0+P 

1320 PRESET < CF+2 ) * 1 0-8 , X* 1 O ) : PR I NT# 1 , O 
1330 NEXT 
1340 RETURN 

1350 0=0: LINE <<F+2)*10~4,0)~<:25S, 129), 
4 , BF 

1 360 PRESET ( É F+2 ) * 1 O , O ) ¡ PR I NT# 1 , " f i " 

1370 FOR X=l TO K 

1380 P=VAL(B*CX)) 

1390 0=0+P 

1400 NEXT 

1410 FOR X=l TO K 

1 420 PRESET ( ( F+2 ) * 1 O , X* 1 O ) ! PR I NT# 1 , US I 
NG"0 **#**#**#"; VAL CB*CX ) )/0 
1430 NEXT 
1440 RETURN 

1450 0=0:Q=0:LINE C <F+2>*10-4,0)-<255, 1 
29),4,BF 

1460 PRESET ( C F+2 ) * 1 O , O ) : PR I NT# 1 , " F i " 
1470 FOR X=l TO K 
1480 P=VAL(B*CX)) 
1490 Q=Q+P 
1500 NEXT 



1510 
1 520 
1 530 
1 540 
NG"0 
1 550 
1 560 
1 570 
1 5S0 



PRESET 



C ( F+2 ) * 1 0+70 , 0 > : PR I MT# 1 , " F i 



DR X=l T0 K 
P=VAL( E¡$(X) ) 

o=o+p 

PRESET < C F+2 )*TÓ, X*1 O ) ! PR I NT# 1 , US I 
*###*#" ;0/Q 
NEXT 

PRESET C í F+2 ) * 1 O , K* 1 O ) ! PR I NT# 1 , * f * 
RETURN 

0=0 :R=0: LINE C í (F+2)*l 0)-4, 0)-C255 
, 129) , 4,BF 

1 590 PRESET C ( F+2 > * 1 0+ 1 O , O ) ! PR I NT# 1 , " f i 

%" 
1 600 

%" 
1610 
1 620 
1 630 
1 640 
1650 
1 660 
1 670 
USING 

1680 R=R+S*100 

1 690 PRESET ( < F+2 ) # 1 0+70 , X* 1 O S ! COLOR 
PRtNT#1 ,USINQ"##. #" ;R 
1700 NEXT 

RETURN 
CLS 

IF B=l THEN 2140 
CLS 

( 100, 95)- (205, 95) 
(100, 190) -(205, 190) 
( 100,95>-C 100, 10) 
(100, 190)-(100, 105) 



FOR X=l TO K 

P=VALCB*(X)) 

0=0+P 

NEXT 

FOR X=l TO K 
S=VAL(B*(X) )/0 

PRESET ( (F+2)*10+10, X*10.) :PRINT#1 
§#. #" ;s*ioo 



I 



1710 
1 720 
1 730 
1 740 
1 750 
1 760 
1 770 
1780 
1 790 
1 800 
1810 
1320 
1 830 
1 340 



LINE 
LIME 
LINE 
LINE 
D1=Z-C1 
E1=30/D1 
M1=K1-L1 
N1=70/M1 
QOSUB 1950 



1 350 



FOR X = 1 TO C 
F1=(VAL(A*(X) )-Cl >*£! 
1 360 0 1 = ( VAL < B* C X ) ) ~L 1 ) *N 1 
1370 IF X=C THEN R1=F1 ELSE R1=ÍVAL(A*( 
X+l ) )~C1 >#E1 

1830 IF X=C THEN SI =01 ELSE S1=(VAL(B*( 
X+l ) )-Ll )*N1 

LINE ( 1 13+F1 ,95)-í 1 13+F1 ,85-01 ) 
LINE ( 1 1 3+F1 , 1 30-01 )-( 11 3+R1 , 1 80--S 



1 890 
1900 
1 ) 

1910 NEXT 

1920 PRESET ( 25 , O ) : PR I NT# 1 , M PULSA LA BA 

RRA PARA SALIR" 

1930 IF INKEY*<>"" THEN 910 

1940 GOTO 1930 

1950 Q1=71/(C-1 ) :FOR X%=101 TO 205 



STEP 



1960 
1970 
1 980 
1990 
2000 
201 O 
2020 
2030 



10 



STEP -Ql 
(X%,P TX+95) 



FOR Pl %=S5 TO 
PSET (X%,P1%) 
IF B=0 THEN PSET 
NEXT 
NEXT 

FOR X=-0 TO 1 

IF B=l THEN W1=0 ELSE W1=X 
PRESET C IO, 1 l+(Wl:f.9S) ) :PRINT#1 ,USI 
NG " ######## . # " ; K 1 : PRESET ( 95 , 11 +( Wl *95 ) 
> :PRINT#1 , "►" 



2040 PRESET ( 1 O , 32+ ( W 1 tS5 ) ) ¡ PR I NT# 1 , 1 JS I 
NG"########.#";L1 : PRESE t ( 95 , 82+ ( W 1 tSB > 
) : PRINT#1 , '>" 
2050 NEXT 

IF B=0 THEN VI —1 ELSE VI «O 
FOR P1=0 TO 90 STEP 90/CC+V1) 
FOR X=94 TO 10 STEP -3 
PSET ( 1 13+P1 , X) 

IF B=0 THEN PSET (113+Pl,X+95) 
NEXT 



2060 
2070 
2080 



2 1 00 
2110 
21 20 
2 1 30 
21 40 
2150 
ERVALOS 
2160 IF 
2170 
21 80 
2 1 90 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 



NEXT 
RETURN 
CLS 
INPUT" 



INT 



!310 



ES LA AMPLITUD DE LOS 
CONSTANTE (S/N)";,T$ 
,T*=""- THEN 2160 
IF ,T*="S" OR .J1>="s" THEN 21 90 
GOTO 2380 

SCREEN 2: LINE ( 1 00 , 35 ) - ( 205 , 95 ) 
LINE (1 00 , 95 > - ( 1 00 , 1 O ) 
T 1 =VAL ( C* ( 1 ) ) -VAL C A* ( 1 ) ) 
D1=Z-C1+T1 
El =90/Dl 
N1=K1-L1 
N1=70/M1 
U1=T1*E1 
QOSUB 1950 
FOR X=l TO C 
F1=CVAL(A$C X ) )-Cl )*E1 
0 1 = ( VAL C B* C X ) ) -L 1 > m 1 
LINE C11 3+F 1 , 95 ) - ( 1 1 3+F 1 +U 1 , 85-0 1 - 



( 113+F1 ,95)-( 1 13+F1+U1 ,85-01- 



1 ) , , BF 
2320 LINE 
1 ),4,B 
2330 NEXT 

2340 LINE ( 100, 95)- (205, 95) 
2350 PRESET ( 25 , O ) ¡ PRINT#1 , "PULSA LA BA 
RRA PARA SALIR" 
2360 IF INKEY$<>"" THEN 910 
GOTO 2360 
SCREEN 2: LINE 
LINE (100,95) 



2370 
2380 
2330 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 



( 205 , 95 ) 



( 1 00 , 95 ) 
( 1 00, 1 O) 

D 1 =Z-C 1 + ( VAL ( C* ( C ) ) -VAL C A* C C ) ) ) 
El =90 /DI 

11=50: J1=999999999#:F0R X = l TO C 
T1=(VAL(C$(X) )-VAL(A$(X) ) ) 
G1=VAL(B$CX))/T1 :H1=G1 
IF G1 >Z1 THEN K1=G1 
AND G1>=K1 
THEN L1=H1 
AND H1>=L1 



THEN I1=G1 



THEN J1=H1 



1 ) . , BF 
2530 LINE 



IF G1>I1 
IF Hl <J1 
IF HKJ1 
NEXT 
M1=K1-L1 
NI «70/M1 
QOSUB 1950 
FOR X=l TO C 

T 1 = ( VAL ( C$ C X > ) -VAL ( A$ < X ) ) ) *E 1 
F1=(VAL(A$(X) )-Cl )*E1 
01=((VALCB*(X))/(T1/E1 ))-Ll )*N1 
LINE ( 1 13+F1 ,95)-( 1 13+F1+T1 ,85-01- 



1 >,4 

2590 
•^600 
2610 



(113+F1 ,95)-(l 13+F1+T1 ,85-01- 
B 

NEXT 

LINE ( 1 00, 95 )-( 205, 95) 
PRESET (25,0) :PRINT#1 , "PULSA LA BA 












RRA PARA SALIR" 
2620 IF INKEY*<>"" 
2630 GÜTÜ 2620 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
27 1 0 
2720 



THEN 910 



' ¿" ¿' ±' 3fc i: & ¿' ¿' i" i' i" ¿" "Jf H- i" ¿' 

•T» •T* 'T» *i • * i* ■ i • *T" * x ■ * T • • T* • x • *x* • T* *x* *T« *T* •x« *x # 

RUTINA ***** 

W=VAL CASCO ) : A1=W 
IF W>Y THEN Z=W 

W>Y AND W>»2 THEN 
AKB1 THEN C1=A1 
Al <B1 AND AV>*C1 THEN B1=A1 
RETURN 

******** OPCION 2 ******* 



IF 
IF 
IF 



Z1=0 
LIME 



< ( C F+2 >*1 O )-4 , O >-t 255 , 1 29 ),4, 



0=0 : x i =o 



2730 
2740 
2750 
2760 
2770 
EF 

2730 

2790 FOR X=l TO K 
2300 P=VALCB*CX)) 
2810 0=0+P 
2820 NEXT 

2830 A2=0:IF 21 «1 THEN RETURN 
2840 FOR X = l TO C 

2850 IF B=0 THEN Yl =VAL ( A$C X ) ) ELSE Yl = 
CVALCCSCX) )+VALCA*CX) ) )/2 
2860 X 1 =X 1 +Y 1 *VAL C B* < X ) ) /□ 
2870 NEXT X 

2830 IF Zl=3 OR Zl=4 THEN RETURN 

2890 PRESET ( < F+2 ) * 1 O , O > ¡ PR I NT# 1 , " Med i a 

ar i trnét . M 
2900 PSET ( C F+2 > * 10,2) ! PRI NT# 1 , " 



29 1 O PRESET C ( F+2 )*IQ, 10> i PR I NT# 1 , " x=" ¡ 

INTCX1 ) ;USING" . ##" ; XI -INTCX1 > 

2920 PRESET ( f. F+2 > * 1 O ( 20 ) : PR I NT# 1 ," x= l ( x 

t -n] >/N" 

2930 PRESET C < F+2 ) * 1 0 , 30 ) ! PR I NT# 1 , " x=£ C x 
i -f i )" 

2940 Zl=l ¡GOSUB 2730 

2950 PRESET ( C F+2 ) * 1 0 , 50 ) : PR I NT# 1 , " Med i 
ana" 

2960 PSET C C F+2 ) * 1 0 , 52 ) : PRI NT# 1 , " 



2970 Y 1=0/2 
2980 0=0: FOR X=l TO C 
2990 P=VALCB*CX) ) 
3000 0=0+P 

3010 IF 0>=Y1 THEN IF B=0 GOTO 3030 ELS 
E 3070 
3020 NEXT 

3030 IF 0>Y1 THEN PRESET ( C F+2 )#1 O , 60 ) ¡ 
PRINT#1 , "Me=" í INT<VALCA*CX) ) ) ;USING" . 
" ; VAL C A* C X ) ) - 1 NT C VAL CA*<X>)>! GOTO 3060 
3040 Y 1 = C VAL C A$C X ) ) + VAL C A* C X+ 1 ) ) ) /2 
3050 PRESET C ( F+2 ) $ 1 O , 60 ) :PRINT#1 , " Me= " 
; INTCYl >;USING".##";Y1-INT<Y1 ) 
3060 GOTO 3090 

3070 Y 1 = C ( C A2/2 ) - < 0-P > >*< V¿\L ( C* C X ) ) -VAL 
ÍA»(X)>))/P 

3080 PRESET < <F+2)#1 O, 60) : PRINT#1 , "Me=" 
; INTCY1 +VALCA*CX) ) ) ;USING" . ##"; Yl+VALCA 
*< X ) )-INTC VALC A$C X ) )+Yl ) 
3090 C2=l : 11=0 
3100 FOR K=l TO C 




ru 



3 1 1 O GOSUB 800 
3120 NEXT 

3 1 30 PRESET C C F+2 > # 1 O , 30 ) ! PR I NT# 1 ( " Moda 



3 1 40 PSET ( ( F+2 ) * 1 0 , 32 ) ! PR I NT# 1 , * " 

3150 IF B=l THEN 3180 

3 1 60 preSET i C P+2 ) * 1 O , 90 ) : PRINT#1 . " Mo= " 
; i NT C VAL C A$ < X > > ) í US I NG n ¡ VAL «. A* < X ) ) - 
I NT C VAL ( A$ ( X > ) ') : K=K- 1 
3170 RETURN 

3 1 80 Y 1 = V AL C A* C X ) > + C ( VAL ( B^ ( X + 1 > ) * < VAL C 

c*<:x> >~val<: A$( x :> ) ) )/cval(b^(X+i ) :>+valcb 

^( X-l >) ) ) : PRESET ( CF+2>:*:10,90:> ! PRINT#1 , 

"Mo=" ; INTCY1 ) íUSING' 1 . ##" ; Yl-INTC Yl ) 

3190 K=K 1 : RETURN 

3200 ' *^*t************1^***** 

3210 >*m*** OPCION 3 ****** 

3220 ! *****&*$************** 

3230 LINE Í i (F+2)*10)-4 í 0>-<255, 129) ,A, 



BF 

3240 PRESET < C F+2 ) * 1 O ,0): PR I NT# 1 , " Rango 

3250 PSET ((F+2)*10,2> :PRINT#1 , " « 

3260 IF B=l THEN 3280 

3270 PRESET ( C F+2 ) * 1 O , 10) : PR I NTttl , " R= " ; 
Z-Cl :GOTO 3290 

3280 PSET < ( F-+ 2 ) * 1 0 , 1 O ) : PR I NT# 1 . " R=" J < V 
AL<CKC) )+VAL< A$CC) ) >/2-"(VAL(C*< 1 > )+VAL 
< A*< 1 ) ) )/2 

3290 PRESET C C F+2 ) * 1 O , 30 ) ! PR I NT# 1 , " Des v 
iac i on m . " 

3300 Z 1 =3 : PRESET ( C F+2 ) * 1 O , 32 ) : PR I NT# 1 , 

"_ " 
331 0~QÜSUB"~27S0 

3320 F2-1:E2=0:IF Zl=4 THEN F2=2 
3330 FOR X=l TO C 

3340 IF B=0 THEN Y 1 =VAL ( A$C X ) ) ELSE Yl= 
C VAL C C* < X ) ) +VAL C A$ C X ) ) > /2 

3350 E2=E2+ < ABS O! Y 1 - X 1 V' F2 ) *VAL C B$ < X ) ) ) 
3360 NEXT 

3370 IF Zl=4 THEN RETURN 

3380 PRESETO:F+2)*10,40) :PRINT#1 ,"Dn.="; 
INT<:E2/0);USING" . ;E2/0-INTCE2/0) 
3390 PRESET C ( F+2 >*1 O , 60 ) j PRINT#1 , " Var i 
anza" 

3400 Z 1 =4 : PSET ( ( F+2 ) * 1 O ¡ 62 ) ! PR I NT# 1 , " _ 
ii 



3410 GOSUB 3310 

3420 PRESET ( ( F+2 ) * 1 O , 70 ) : PR I NT# 1 , * S 2 
; INTCE2/0) ¡USING" . ##" j E2/0- INT C E2/0 ) 
3430 PRESET ( <F+2)*1 O, 90) : PRINT#1 , "Desv 
iac ion t . " 

3440 PRESET C <F+2)*1 O, 92) ¡ PRINT#1 , " 



ti 



3450 PRESET ( C F+2 )*1 O , 1 00 ) ! PRINT#1 , "S=" 
; INTCSQRCE2/0) ) ;USING" . ##" ; SQRC E2/0 )-IN 
TCSQRÍE2/0) ) 
3460 RETURN 
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TRUCOS DEL 



PROGRAMADOR 




COMO ELIMINAR LOS 
NUMEROS DE DBAW 

Respecto a la orden DRAW hay que 
tener en cuenta que si queremos dibu- 
jar por ejemplo: 

DRAW«BM30,50 
U1R1F1R1D1G1H1» 

podemos quitar los números que 
acompañan a las letras cuando son 
unos, con lo que ahorraríamos memo- 
ria. Esto me fue de mucha utilidad al in- 
troducir vuestro magnífico programa 
«Caza». 

Lorenzo Martínez Rubio 



D IBUJA R PUNTO 
APUNTO 



Este pequeño programa hace que a 
partir de un punto, cuyas coordenadas 
previamente introducimos, podamos 
dibujar cualquier gráfico utilizando las 
siguientes teclas: 

qwe; ad; zxc 

Con estas teclas nosotros iremos di- 
bujando los gráficos punto a punto, 
'desplazándonos, según la dirección de 
cada tecla en el plano. Así si apreta- 
mos la d, dibujará puntos hacia la dere- 
cha, si apretamos la a lo hará hacia la 
izquierda, si apretamos la w lo hará ha- 
cia arriba, etc. 

Así, punto a punto, nosotros pode- 
mos dibujar gráficos de hasta un máxi- 



mo de 90 puntos, pero si nosotros que- 
remos dibujarlos más grandes no es 
problema, porque una vez superada la 
longitud de 90 puntos, aparece en pan- 
talla toda la cadena que corresponde 
en el comando Draw a ese gráfico, así 
como el último punto, especificado con 
las coordenadas X e Y, donde se ha 
acabado. Por lo que para hacer gráfi- 
cos de más de 90 puntos sólo con intro- 
ducir como punto de partida el punto en 
el que ha acabado el anterior gráfico, 
así gráfico a gráfico realizaremos los 
que nosotros deseemos. 

Si por el contrario nosotros dibuja- 
mos gráficos de menos de 90 puntos, 
cuando nosotros hayamos terminado 
de dibujarlo, sólo con apretar la barra 
espaciadora nos aparecerá en pantalla 
la cadena correspondiente el comando 
DRAW, de la cual nosotros podemos 
tomar nota. 

El listado de este programa es el si- 
guiente: 



10 CLS 

20 INPUT "COORDENADA X DE 

L PUNTO INICIAL" ;X 

30 INPUT M COORDENADA Y DE 

L PUNTO INICIAL" ; Y 

40 SCREEN 2 

50 A$= INKEYS 

60 IF A$="A" THEN MS="L": 

X=X-l:GOTO 160 
70 IF AS="Q" THEN MS="H": 

X=X-1: Y=Y-1: GOTO 160 
80 IF AS="V" THEN M$="U": 

Y=Y-l:GOTO 160 
90 IF A$="E" THEN M$="E": 

X=X+1: Y=Y-1: GOTO 160 
100 IF A$="D" THEN M$="R" 
:X=X+l:GOTO 160 
110 IF AS="C" THEN MS="F" 
:X=X+1: Y=Y+l:GOTO 160 
120 IF AS="X" THEN MS="D" 
:Y=Y+l:GOTO 160 
130 IF AS="Z" THEN MS="G" 
: X=X-1: Y=Y+l:GOTO 160 
140 IF AS="" THEN GOTO 20 
0 

150 GOTO 50 

160 BS=B$+M$ 

170 PSET <X, Y) , 1 

180 IF LEN (BS)>90 THEN G 

OTO 200 

190 GOTO 5 

200 SCREEN 0 

210 PRINT" ";E$ 

220 PRINT 

230 PRINT"X=" ; X, "Y=" ; Y 
240 END 



Antonio Montes García 



COMO ESCRIBIR LA. «Ñ» 



En el listado que publicáis de GEO- 
GRAFIA -que está muy bien-, observo 
que hay problemas para escribir la le- 
tra «ñ» o «Ñ». Para conseguirlo hay 

2ue mantener pulsada la tecla del 
:ODE y pulsar la n y si la quieres ma- 
yúscula, pulsar la misma tecla al mis- 
mo tiempo que CODE y SHIFT. 
Iguatmente el signo 0 de n.° se consi- 
ue teniendo pulsada la tecla CODE y 
a ?/. 

Para el signo a se consigue teniendo 
pulsada la tecla CODE y la tecla = . 



(firma ilegible) 



EXPOSICION 
CARACTERES SVT 328 



Yo tengo un ordenador SVI 328 y no 
es del sistema MSX, aunque creo que 
la diferencia es mínima. 

Les envió este pequeño programa 
porque creo que es de gran utilidad 
para aquellos que comienzan a mane- 
jar los ordenadores por primera vez. 

En este corto programa de 12 ins- 
trucciones, aparecen todos los carac- 
teres que posee el ordenador, CHR$ y 
CODIGO ASCII. También enumera to- 
dos los colores del mismo. Enseña a 
manejar pequeños bucles y variables. 



10 SCREEN 1 ¡ COLOR 15, 
4 

20 FOR T=1T0 22 

30 PRINT'CHR*" JTJ " = " 

; chr* CT > 1 " . . " ; " asc : " 
;CHR»CT> ; "="T" . . " ; "H 
EX : "T; "=" ;hex*CT) 

40 FOR M=1T0 1501NEX 
T M 

50 NEXT T 

60 FOR G=1T0 200 : NEX 
T 6: CLS ¡PRINT: PRINT" 
Espera. . . " ! FOR T=1T0 

500 : NEXT T 
70 FOR M=1T0 15 
80 COLOR 1 , M 
90 CLS : PR I NTTAB < 1 O ) " 
COLOR : " J M 

100 FOR T=1 TOSOOINE 
XT T 

1 10 NEXT M 
120 PRINT"END" 



Antonio Fernández Zapico 
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KRYPTON 



Manhattan Transí er SJL 

Pormato: cassette 32k 
Mandos: joystick o teclado 
Teclee: LOAD "CAS:", R 
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Este juego diseñado por 
Rubén Jiménez plan- 
tea una batalla galácti- 
ca. Se trata de defender el pla- 
neta Krypton de oleadas de in- 
vasores, cuya finalidad es la de 
destruir la capital. 

Para la defensa de Krypton 
cuentas con un rayo láser co- 
locado en la torre del edificio 
más alto de la ciudad. Las na- 
ves no aparecen en escuadri- 
llas, sino que envían ovnis 
muy rápidos y escurridizos a 
los que hay que derribar como 
sea. Para ello tienes tu punto 
de mira y en cuanto tengas 
centrado al invasor debes dis- 
pararle, ya sea pulsando el bo- 
tón dé mando o la barra espa- 
dadora . Es muy importante 
que no malgastes los disparos 
del cañón láser, pues su reca- 
lentamiento produce su explo- 
sión y consecuentemente la 
invasión y destrucción de la 
ciudad. 

Una vez que has conseguido 
derrotar la primera oleada in- 
vasora te vendrá una segunda, 
pero esta vez tu arma es un 
caza espacial, con el que tienes 
que salir a buscar al astuto 
enemigo. Pero en esta ocasión, 
el peligro no es sólo él, sino 
también una tormenta de me- 
teoritos que si te alcanzan ya 
no podrás contar el cuento. 
Claro que como es un juego, 
tienes tres vidas más. Tus dis- 
paros en esta ocasión no le ha- 
cen nada a los meteoritos, pero 
sí a las naves invasoras, aun- 
que algunas necesitan más de 
un disparo para acabar con 



ellas. Es muy importante que 
administres muy bien los dis- 
paros pues la energía que gas- 
tas en ellos se contabiliza para 
las cuatro pantallas de que dis- 
pone el juego, cada una de las 
cuales con distintos niveles de 
dificultad. A medida que vas re- 
chazando al enemigo, en las 
distintas fases del Juego, los 
obstáculos serán mayores, es 
decir que los ovnis se tornarán 
más rápidos y escurridizos, 
vendrán más y para vencerlos 
necesitas mucha sangre fría. 
Ganas cuando consigues ha- 
cer 990.000 puntos o 36 pan- 
tallas. En la parte superior de 
la pantalla tienes un marca- 
dor que te indica el ataque en 
curso (A), el grado de destruc- 
ción de la ciudad (C), los pun- 
tos (P) y la energía consumida 
por el láser (L). 




Sonido: Correcto. 
Graíismo: Muy cuidado. 
Conclusión: Un juego que re- 
quiere mucha destreza y san- 
gre fría para llegar al final. 
Precio: 500 pts. (sólo se vende 
por correo) 
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Qnicksilva/Mind Games 
España 

Formato: cassette 32K 
Mandos: joystick o teclado. 



Este es uno de los juegos 
más apasionantes sur- 
gidos últimamente y 
viene precedido de un gran 
éxito en Gran Bretaña y otros 
países europeos. 

El juego en sí es muy simple. 
Tras cargar la cassette el juego 
comenzará con una pequeña 
pulga saltando alegremente, 
pero de pronto cae al vacío, 
muchos, muchos metros. Por 
suerte su caída no le produce 
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fracturas, pero el peligro la 
acecha ya que justo al lado 
suyo hay una especie de escor- 
pión del que debe alejarse. Tu 
misión en este juego es ayu- 
darla a subir hasta la superfi- 
cie, haciendo que salte en unas 
especies de islas flotantes del 
abismo. La cosa no es fácil, 
pues tienes que calcular muy 
bien el salto, pues a la niínima 
te quedas corto o te pasas y la 
pulguita cae otra vez. Aparte 
de eso, recuerda que están los 
escorpiones y también un dra- 
gón alado que en cuanto te ve 
se lanza sobre Booga Boo y ya 
te puedes despedir de ella. 
También te encontrarás que si 
bien consigues ascender algu- 
nas islas flotantes, no puedes 
avanzar porque el camino está 
bloqueado. La mayor dificultad 
reside en que no tienes una vi- 
sión completa del abismo, de 
modo que siempre tienes que 
hacer subir a Booga Boo a tien- 
tas. Así, si no sabes exacta- 
mente a donde la enviarás, 
puede que vuelvas al punto de 
partida, es decir al fondo. 

En la parte inferior de la 
pantalla tienes un marcador 
de fuerza en el que puedes cal- 
cular la potencia que le darás 
al salto. El manejo de la pulga 
es sencillo, pero no así el con- 
trol de los saltos que requieren 
mucha pericia. El juego, te 
digo, es todo un desafío. 



Sonido: Elemental. 
Grañsmo: Atractivo, buen 
empleo de los colores y de los 
efectos. 

Conclusión: Jugarlo puede 
llegar a aficionarte, pues te pa- 
recerá mentira no llegar a la 
superficie tan fácilmente como 
aparenta. 

Precio aproximado: 2495 pts. 
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GHOSTBUSTER 



Formato: cassette 32K 
Mandos: joystick 
Teclea: BLOAD "CAS:", R 
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Este es un juego diseña- 
do por David Crane para 
que puedas enrollarte a 
lo grande. En primer lugar tie- 
nes que leer muy bien las ins- 
trucciones porque es un juego 
que requiere mucha atención 
acerca de los pasos que vas a 
dar para cazar un fantasma. 
Por esto te aconsejamos que 
mientras la cinta se carga te 
repases siempre las instruc- 
ciones. El primer paso que tie- 
nes que dar es elegir el equipo 
que tendrás para la caza de los 
fantasmas que empiezan a pu- 
lular por la ciudad. Previa- 
mente el ordenador te hará 
una serie de preguntas para su 
información, como si tienes o 
no cuenta bancaria. 

El equipo consta de vehículos 
de distintos precios, aspirado- 
ras, trampas, sensores de mal- 
vavisco, carnadas, sistemas de 
encierro de láser, etc. Elige 
bien, pues contar con un buen 
equipo -que no necesariamen- 
te es el más caro— dependerá 
que los fantasmas, espectros 
errantes y el feroz señor Mal- 
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vavisco no te sorprendan e In- 
vadan los edificios de la ciudad, 
hasta llegar al Templo de Zuul. 

Otro detalle que tienes que 
tener en cuenta es que la com- 
pra del equipo te rebajará el di- 
nero y que no puedes quedarte 
sin él, de modo que tienes que 
saber administrarte no sólo 
para no gastarlo todo o perder- 
lo, sino para poder ganar lo su- 
ficiente con la caza de fantas- 
mas y poder llegar en buenas 
condiciones financieras al 
Templo de Zuul y abrir sus 
puertas. 

Con el equipo ya listo el orde- 
nador te muestra un plano de 
la ciudad. Los edificios que in- 
tervienen en el juego son el 
Templo de Zuul, en el cual ten- 
drá lugar la reunión de ghosts 
-fantasmas-, el Cuartel Cen- 
tral, donde se hallan las tram- 
pas necesarias y a donde hay 
que acudir para tener siempre 
alguna disponible. Los edifi- 
cios que tienen una luz roja 
nos indican que allí hay un 
fantasma y hacia allí hay que 
ir por el camino más corto. 

Una vez que has llegado al 
edificio tienes que colocar la 
trampa y disparar tu rayo, 
pero cuidando de que estos no 
se crucen. Recuerda que de la 
caza de fantasmas o espectros 
errantes depende el que pue- 
das ingresar en el Templo de 
Zuul. ¡Suerte! ¡Caza fantasmas! 



Sonido: Se escucha la diverti- 
da melodía de «Ghostbuster» 
Grañamo: Muy bien logrado. 
Conclusión: Te ofrece una se- 
rie de posibilidades de diver- 
sión distintas, porque el resul- 
tado no sólo depende de tu ca- 
pacidad de reflejos, sino tam- 
bién de tu habilidad para admi- 
nistrar las finanzas y desarro- 
llar una estrategia. 
Precio aproximado: 2200 pts. 
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MASTER OF 
THE LAMPS 



Acüvi8ión/Pro6in8JL 
Formato: cassette 
Mandos: teclado o joystíck. 
Tecleo: LOAD "CAS:", R 




Seguro que alguna vez ha- 
brás visto u oído hablar 
de Aladino y su lámpara 
mágica. Aquí te presentamos 
al gran maestro de las lámpa- 
ras pero con un gran proble- 
ma en el cual tu ayuda es pri- 
mordial; resulta que tres de 
sus lámparas se han dividido 
en varios trozos por obra de un 
genio y tú has de ayudarle a re- 
componerlas. Pero para ha- 
cerlo debes pasar distintas fa- 
ses: 

1.°— Con ayuda de tu alfom- 
bra voladora debes atravesar 
un complicado túnel a toda ve- 
locidad, teniendo por seguro 
que a esa velocidad, estrellarse 
contra las paredes es muy fá- 
cil, lo que te obligaría a empe- 
zar otra vez. 

¡Pero ten cuidado! porque 
sólo podrás equivocarte 3 ve- 
ces. Te diré un truquito. Si te 
balanceas de izquierda a dere- 
cha con cierto ritmo, pasarás 
el túnel más fácilmente. Una 
vez hayas conseguido pasar el 
túnel, llegarás a la fase de «LOS 
GONGS», donde recibirás ayu- 
da de un pequeño genio. Si es- 
tás en la primera lámpara, 
éste hará aparecer unas notas 



de colores que irán bajando. Tú 
has de tocar la combinación 
exacta que forman las notas 
en los gongs. Si lo haces mal, 
volverás a comenzar, pero si 
no es así, habrás encontrado 
un trozo más de la primera 
lámpara. 

En la 2. a lámpara, sólo tie- 
nes unos pocos segundos para 
memorizar los colores de las 
notas, ya que después éstas se 
vuelven todas blancas. En la 
3. a lámpara será aún más com- 
plicado... 

Si has reconstruido las 3 
lámparas, aún te quedará pa- 
sar por el túnel una vez más; y 
como recompensa llegarás al 
palacio donde serás coronado. 



Sonido: Bueno. 
Graftsmo: Es muy bueno ya 
que es un juego tridimensio- 
nal. 

Conclusiones: El tema del 
juego se sale de los normales. 
Es muy entretenido y se nece- 
sitan buenos reflejos y buena 
memoria. 

Precio aproximado: 2200 pts. 



OOOOQOQO 



KEYST0NE 
KASPER 



Activision/Proein SJL/ 
Philips. 

Formato: cassette 32K. 
Mandos: teclado o Joystick. 
Teclee: BLOAD "CAS:", R 



Atención! Aviso para el 
superpolicía de Activi- 
sión. Se ha escapado 
un peligroso ladrón y lleva 
consigo un gran botín; parece 
ser que se ha metido en unos 
grandes almacenes y como no 
lo atrapen pronto escapará 
por la terraza. . 

Pero para que esto no ocurra 
aquí aparecerás tú, Keystone 
Kelly, que correrás tras el la- 
drón hasta atraparlo pero, 
jojo!, al mismo tiempo debes 
tener cuidado con los obstácu- 
los que te irá poniendo el la- 
drón para entorpecerte la per- 
secución, tales como los carri- 
tos o las pelotas de playa, obje- 
tos con los cuales tratará de 
que tropieces. 

También intentará despis- 
tarte subiendo por escaleras 
pero lo que de verdad le intere- 
sa es llegar al ascensor. Aquí, 
si te fijas en la parte inferior de 
la pantalla un indicador te avi- 
sará en que piso se encuentra 
y esto es una ayuda para ti que 



tendrás que aprovechar, por 
cuanto debes darte prisa cuan- 
do aparezca el ladrón dado que 
el reloj empieza a funcionar. 
Cuantos más ladrones atrapes 
en menos tiempo más puntos 
obtendrás. Si eres rápido pue- 
des atrapar más de dieciséis 
ladrones. 

Otro dato a tener en cuenta 
es que en su fuga el ladrón va 
perdiendo la bolsa con el dine- 
ro y las maletas. Si las recoges 
serán 60 puntos más para tí. 

Si has conseguido llegar a 
10.000 puntos vendrá otro po- 
licía a ayudarte en el rescate 
del atrevido ladrón. Puedes lle- 
gar a contar con 3 policías de 
ayudantes, pero no te creas 
que la cosa se pone más fácil, 
sino que por el contrario sur- 
gen nuevos inconvenientes 
que dificultarán aún más la 
operación de caza. 

El juego puede acabar si te 
has consumido el tiempo con 
el que contabas para atrapar- 
lo, o bien si te chocas con un 
pequeño avión que circula por 
el almacén, como así también 
si el ladrón consigue llegar a la 
terraza. Técnicamente los mo- 
vimientos los consigues de la 
siguiente manera: a nuestro 
gran agente lo puedes dirigir 
hacia derecha o izquierda ac- 
cionando el mando. Para en- 
trar al ascensor mueves la pa- 
lanca del mando hacia adelan- 
te y para salir hacia atrás. El 
botón del mando te sirve para 
que Kelly salte los obstáculos, 
utilizando un salto corto o uno 
muy largo sin dejar de avan- 
zar. 

Por cada vez que choque con 
algún obstáculo la máquina le 
descontará 9 segundos de su 
tiempo. 




Di 

q'Í 
D> 

D< 

□3 
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□ : 

□ : 
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□ 
□ 
□ 
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C 
D 
D 
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D 
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□i 

□ : 
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Sonido: Una ininterrum; 
melodía animará a nuestro po- 
licía. 

Graflsmo: Bien logrado. 
Conclusiones: Aunque en la 
mayoría de juegos de persecu- 
ción eres tú el perseguido, en 
éste los papeles han cambiado. 
Precio aproximado: 2400 pts. 
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INICIACION AL LENGUAJE MAQUINA 



DEL HASD AL SOFT 



(IX) 

MÁS SOBRE LOS 
REGISTROS DEL Z80 

Dado el estado en que nos en- 
contramos en nuestro estudio 
del código máquina se hace ne- 
cesario que os presentemos la totali- 
dad de los registros. Los nuevos regis- 
tros que os presentamos ahora, no se- 
rán tan utilizados como los que hemos 
visto hasta ahora, (de hecho en esta 
etapa del estudio no los utilizaremos) 
pero ya es hora de que al menos se- 
páis de su existencia. 

En primer lugar se debe saber que 
los registros (ya conocidos) A, B, C, D, 
E, H, y L se encuentran duplicados 
bajo el nombre de A', B\ C\ D\ E\ H' y 
L\ La misión de estos registros que lla- 
maremos paralelos, no es sino inter- 
cambiar su contenido con sus homóni- 
mos, bajo la acción de una instrucción 
especial que ya estudiaremos. 

De otra parte disponemos de dos re- 
gistros auténticos de 1 6 bits conocidos 
como registros IX, e IY, los cuales reci- 
ben el nombre de registros de índice 
(registro de índice X, y registro de índi- 
ce Y,) Su utilidad la encontraremos 
más adelante. Estos dos registros de 
índice junto con el ordenador de pro- 
arama (PC) y el punt ero del stack (SP), 
forman la tétrada de los 16 bits. Los 
restantes registros son sólo de 8 bits, y 
como vimos necesitan juntarse dos en 
un par para contener datos que proce- 
dan de estos cuatro. 

Los registros R y I V (ambos de 8 bits) 
no tienen apenas importancia en la 
programación elemental en código 
máquina. De momento bástenos con 
saber que el primero se utiliza para re- 
fresco de las memorias dinámicas (de 
pantalla entre otras) y de ahí proviene 
su nombre (R de refresco). El otro, el IV 
se utiliza en el capítulo de interrupcio- 
nes y algún día será necesario que nos 
ocupemos detenidamente de él. De 
momento mencionamos estos dos tan 
sólo a fin de completar el cuadro y po- 
der echar un vistazo al panorama ge- 
neral. 



Para finalizar disponemos de un re- 
gistro llamado F que dispone asimismo 
de su paralelo, que como ya podemos 
deducir se llamará F' (todos los parale- 
los se llaman igual con una pequeña 
comilla delante). Esta comilla se lee 
como prima, es decir registro F y regis- 
tro Fprima, o registro A y registro Apri- 
ma etc, etc. 

Este registro F se llama así por la 
abreviatura de Flag; en castellano lo 
llamaremos registro de banderas, nom- 
bre muy apropiado, a raíz de lo que a 
continuación contaremos sobre él. 



Los 22 registros del Z80 



F 


A 


B 


C 


D 


E 


H 


L 


R 


IV 


IX 


IY 


SP 


PC 



F' 


A' 


B* 


C 


D' 


E' 


H' 


L' 



J 



8 bits 

i 1 

16 bits 



EL REGISTRO 70 
REGISTRO DE FLAGS 



El registro F es de 8 bits y no se 
utiliza como los otros registros 
simples de 8 bits, acumulando 
valores entre 0 y 255, puesto que en él 
cada uno de los bits que contiene no in- 
dican un valor sino una condición de- 
terminada que el Z80 nos muestra para 
su utilización en la programación avan- 



zada, así como para una serie de con- 
troles internos. Para entenderlo mejor 
recordemos que los bits en un byte se 
numeraban de la siguiente forma (de 
derecha a izquierda). 



Número de bits en un byte 



7 


6 


5 


4 


3 


2 


1 


0 



Pues bien, el ordenador no mira nun- 
ca este registro F como un conjunto, 
sino que según el caso inspecciona 
uno a uno los bits y actúa en relación a 
su valor (es evidente que este bit sólo 
puede tomar dos estados 0 ó 1 ), por lo 
que decimos que tal o cual operación 
se realizará dependiendo de la bande- 
ra o flag de un determinado bit de este 
byte del registro F. Diremos que hay 
bandera cuando este bit en concreto 
que nos interesa está a uno. 

Es tal la importancia de estos bits in- 
dependientes, que reciben su propio 
nombre (una letra que les caracteriza) 
como podemos ver en este esquema. 



Nombre de los bits del Registro F 



s 


z 


0 


H 


0 


P/V 


N 


C 



El primer bit (más a la derecha) lo he- 
mos llamado Ó, abreviatura de Carry 

Í acarreo en inglés). La misión de este 
lag «C» es muy sencilla: si tras una 
operación se supera el máximo valor 
que se puede contener en un byte, es 
decir si nos llevamos una (según la ex- 
presión popular), este bit se encontrará 
encendido, y en consecuencia se ha 
efectuado acarreo. 

Es lo mismo que cuando de peque- 
ños tras sumar 5 y 9 decíamos 1 4 y me 
llevo una, es decir cuatro y enciendo el 
bit C o de acarreo. 

Para no cansarnos veremos las mi- 
siones que desempeñan los demás 
bits del byte F en sucesivos artículos. 
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ALGUNOS CÓDIGOS 
DE OPEBACIÓN 
PENDIENTES 

Cuando en el número 1 1 de nues- 
tra revista publicamos un cua- 
dro (la tabla 1) especialmente 
detallado de las operaciones de carga, 
no pensamos en que su complejidad 
podría representar un problema para 
nuestros lectores, por lo tanto mientras 
entendemos toda la información que 
en ella se detalla, listamos a continua- 
ción de una forma más clara los códi- 
gos de operación en HEXA correspon- 
dientes a estas instrucciones del grupo 
de carga y transferencia. 

Obsérvense de forma especial las 
instrucciones que aparecen con un pa- 
réntesis conteniendo la expresión (IX 
+ d) y (IY + d). Como ya hemos visto 
en este mismo artículo, los registros IX 
e IY, son denominados de índice, y 
contienen una dirección de memoria 
(son de 16 bits). Esta dirección se utili- 
za como referencia para señalar otras. 
Es decir: si tenemos un contenido de- 
terminado en el registro IX (el área de 
memoria &H56B3 para cargar el acu- 
mulador en la dirección &H56B7) (cua- 
tro direcciones más arriba) no será ne- 
cesario introducir directamente la nue- 
va dirección, pues nos bastará con de- 
cirle al Z80 que cargue el contenido del 
acumulador 4 direcciones por encima 
de la contenida en el registro IX, lo que 
conseguimos con la instrucción de AS- 
SEMBLER siguiente: LD (IX + 4), A o 
sea, carga el acumulador en la direc- 
ción de memoria IX + 4, (esta instruc- 
ción es de tres bytes, siendo el tercero 
el valor a incrementar, en este caso 4). 

Esta es la misión del par de registros 
de 16 bits IX e IY, pues funcionan de 
forma idéntica. Si le queda alguna 
duda le invitamos a que realice un bre- 
ve programa comprobatorio. (Fig. A) 



I 

FIGURA A 


LO, A, FE 


3E 
FE 


INCA 


3C 
DD 


LDIX,(nn) 


21 
nn 


LD(IX + 4),A 


DD 

77 


RET 


4 

C9 


Tras introducir este progra- 
ma en la forma indicada en el 
n.° 1 0 de esta revista, nos colo- 
ca el resultado FF cuatro direc- 
ciones de memoria por encima 
de la Introducida (nn). 



Añadiremos al listado de códigos de 
operación las relativas a la suma ADD 
presentada el mes pasado, y que utili- 
zan los registros IX e IY por lo que no 



se incluyeron junto a las demás. Ahora 
ya podemos entender su funciona- 
miento y las colocamos en primer lu- 
gar. 



ADD IX, BC 
ADD IX, DE 
ADD IX, IX 
ADD IX, SP 
ADD IY, BC 
ADD I Y, DE 
ADD IY, IY 
ADDIY, SP 
ADD A, (IX +d) 
ADD A, (IY + d) 
LD(BC),A 
LD(DE), A 
LD(HL), A 
LD(HL), B 
LD 
LD 



HL),C 
jHLi, D 
LD HL),E 
LD 
LD 
LD 
LD 
LD 
LD 



HL),H 
HL), L 
HL), n 
IX + d),A 
IX + d),B 

LD(lX + d),D 
LDIX + d),E 
LD(IX + d),H 
LD(IX + d),L 
LD(IX + d),n 
LDtlY + d , A 
LD(IY + d),B 
LD(IY + d),C 
LD(IY + d),D 
LD (IY + di, E 
LD(IY + d),H 
LD(IY + d),L 
IY + d),n 
¡nn), A 



LD 
LD 
LD 
LD 
LD 



[nn), BC 
nn , DE 
[nn),HL 
LD(nn),IX 
LD(nn), IY 
LD(nn),SP 
LD A, í BC 
LD A, (DE 
LD A, (HL 

+ d 



DD09 

DD19 

DD29 

DD39 

FD09 

FD19 

FD29 

FD39 

DD86d 

FD86d 

02 

12 

77 

70 

71 

72 

73 

74 

75 

36n 

DD77d 

DD70d 

DD71d 

DD72d 

DD73d 

DD74d 

DD75d 

DD36dn 

FD77d 

FD70d 

FD71d 

FD72d 

FD73d 

FD74d 

FD75d 

FD36dn 

32nn 

ED43nn 

ED53nn 

22nn 

DD22nn 

FD22nn 

ED73nn 

OA 

1A 

7E 



LD A, (I Y 4- d) 
LD A, (nn) 
LD A, A 
LD A, B 
LD A, C 
LD A, D 
LD A, E 
LD A, H 
LD A, I 
LDL, A 
LDL, B 
LD L, C 
LDL, D 
LDL, E 
LDL, H 
LDL, L 
LD L, n 
LDSP,(nn) 
LD SP, HL 
LDSP,IX 
LDSP,IY 
LDSP, nn 
LD A, L 
LD A, n 
LD B, (HL) 
LDB,(IX + d) 
LD B, (IY + d) 
LDB, A 
LDB, B 
LDB, C 
LDB, D 
LDB, E 
LDB, H 
LD B, L 
LD B, n 
LDB.C(nn) 
LDB, Cnn 
LD C, (HL) 
LDC,((IX + d) 
LDC,(IY + d) 
LDC, A 
LDC.B 
LDC.C 
LDC, D 
LDC, E 
LD C, H 



FD7Ed 

3Ann 

7F 

78 

79 

7A 

7B 

7C 

ED57 

6F 

68 

69 

6A 



MHL) 
>, IX + d) 
>,0Y + d) 
K A 



6C 
6D 
2En 

ED7Bnn 
F9 

DDF9 

FDF9 

31 nn 

7D 

3En 

46 

DD46d 

FD46d 

47 

40 

41 

42 

43 

44 

45 

06n 

ED4Bnn 

01 nn 
4E 

DD4Ed 

FD4Ed 

4F 

48 

49 



4B 
4C 



LDC, n 
LD D, (HL) 
LD D, 
LD D, 
LDD, 
LDD, B 
LD D, C 
LDD, D 
LDD, E 
LDD, H 
LD D, L 
LDD, n 
LD DE, (nn) 
LD DE, nn 
LD E, (HL) 
LDE,(IX + d) 
LDE,(IY + d) 
LDE, A 
LDE, B 
LDE, C 
LD E, D 
LDE, E 
LDE, H 
LDE, L 
LDE, n 
LD H, (HL) 
LD 
LD 
LD 

LDH.B 
LDH, C 
LDH.D 
LDH, E 
LDH, H 
LDH, L 
LDH, n 
LD HL, (nn) 
LD HL, nn 
LDI.A 
LDIX,(nn) 
LDIX,nn 
LD I Y, (nn) 
LD IY, nn 
LDL, (HL) 
LDL, (IX + d) 
LD L, (IY d) 




>E,n 
' H, ÍHL) 
H, IX + d) 
H,(IY + d 
H, A 



DD6Ed 
FD6Ed 




PARA EXPERTOS 



Para los que nos pedís progra- 
mas y utilidades más avanzadas 
en código máquina os presenta- 
mos hoy una rutina de clasificación o 
soft que funciona a alta velocidad utili- 



zando la función VARPTR. 

El algoritmo utilizado en este progra- 
ma es sencillo: N valores son asigna- 
dos casualmente a la matriz entera D y 
después colocados en orden creciente 
por medio de la rutina USR. 

Este mismo programa en BASIC re- 
queriría un tiempo de ejecución cien 
veces superior. 



¡i 



1 0 CLEAR 200, &HF32F 
20 DEF1NT A-Z. WIDTH 30 
30 AD = &HF330: DEFUSR 

= AD 
40 FORI = 0TO71 
50 READ A$: V = VAL («&H» 

+ A$) 
60POKEAD + I, V 
70 NEXT 

80 DATA 23, 23, 5E, 23, 56, 

D5, DD, E1 
90 DATA DD, 5E, FE, DD, 56, 

FF, 1 B, DD 
00DATA4E,00,DD,46,01, 
PP,6E,02 



110 DATADO, 66, 03, DD, 23, 

DD,23,DD 
1 20 DATA E5, AF, E5, ED, 42, 

E1 30 18 
1 30 DATA DD, 70, 01 , DD, 71 , 

00,l>D,74 
1 40 DATA FF, DD, 75, FE, DD, 

2B,DD,2B 
1 50 DATA DD, 46, FF, DD, 4E, 

FE,18,E1 
160DATADD,E1,1B,7A,B3, 

20, C8,C9 
1 70 INPUT «No. of Data» ; N 
180DIMD(N):D(0) = 0:I 

= RWD(-TIME) 



190FORI = 1TON 
200D(l) = RND(irN 
210 NEXT 

220 PRINT «START!» 
230 TIME =0 

240 V = ÜSR(VARPTR(D(0))) 

250V = TIME 

260FORI = 1TON 

270 PRINT USINQ U # # # # 

# W ;D(I); 
280 NEXT: PRINT 
290 PRINT V; M /60 
300 END 
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Y a continuación veamos las datas 
de las líneas 80 a 160. Traducidas a 
ASSEMBLER, a la izquierda tenemos 
las direcciones de memoria en que se 
aloja el programa en código máquina. 
Inmediatamente a su derecha tene- 
mos el contenido de esas direcciones 
(códigos de operación y de datos), por 
ejemplo, en la dirección F348, nos en- 
contramos a su derecha DD6603. DD 
se aloja en F348, 66 en F349 y 03 en 
F34A, por lo que en la línea inferior en- 
contramos el área de memoria F34B. 

Las tres columnas de más a la dere- 
cha contienen la traducción de los có- 
digos de operación en nemónicos de 
Assembler. 



F330 

F331 

F332 

F333 

F334 

F335 

F336 

F338 

F33B 

F33E 

F33F 

F342 

F345 

F348 

F34B 

F34D 

F34F 

F351 



23 
23 
5E 
23 
56 
D5 

DDE1 



DD56FF 
1B 

DD4E00 STRT: 

DD4601 

DD6E02 

DD6603 

DD23 

OD23 

DDE5 

AF COMP: 
E5 



ORG 

INC 

INC 

LD 

INC 

LD 

PUSH 
POP 
LO 
LO 
DEC 
LD 
LD 
LD 
LD 
INC 
INC 
PUSH 
XOR 
PUSH 



0F330H 

HL 

HL 

E, (HL) 
HL 

D, (HL) 
DE 

IX 

E, (IX -2) 
D, (IX -1) 
DE 
C, (IX +0) 
B,(IX+1) 
L, (IX +2) 
H, (IX +3) 
IX 
IX 
IX 
A 
HL 
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F3S5 

F356 

F358 

F35B 

F35E 

F361 

F364 

F366 

F368 

F36B 

F36E 

F370 

D372 

F373 

F374 

F375 

F377 



ED42 

E1 

018 

DD7001 

DD7100 

DD74FF 

DD75FE 

DD2B 

DD2B 

DD46FF 

DD4EFE 

18E1 

DDE1 

1B 

7A 

B3 

20C8 

C9 



SBC 

POP 

JR 

LD 

LD 

LD 

LD 

DEC 

DEC 

LD 

LD 

JR 

POP 

DEC 

LD 

OR 

JR 

RET 



HL, BC 
HL 

NC, OK 
(IX +1), B 
IX+0),C 
IX -1 ,H 

ox-2¡, L 





MSX1 150 PTAS. 



MSX2 150 PTAS. 
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MSX3 150 PTAS. 




MSX4 150 PTAS. 
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MSX5 150 PTAS 
■ 



MSX6 150 PTAS. 
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MSX9 150 PTAS. 



MSX10 150 PTAS. 



MSX11 150 PTAS. 



MSX12-13 300 PTAS. 



/ 1 . ^ . te 



MSX 2. a Edición 

N.°* 1 ,2,3,4, - 450 PTAS. 



¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY MISMO EL 
BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» -DPTO. 

SUSCRIPCIONES C/. Roca I Batlle. 10-12, 08023 Barcelona. 



BOLETIN DE PEDIDO 



r 

| Deseo recibir los números de SUPERJUEGOS EXTRA MSX, 

I para lo cual adjunto talón del Banco n.° a la orden de Manhattan Transfer, S.A. 

| Nombre y apellidos 



Dirección 



• • 



Tel. ... 



• 



Población 



- 



• •• 



DP. 



Prov. 



I 



JAVIER GUERRERO JUAN CARLOS GONZALEZ 



Descubre cómo ahorrar memoria, 
ganar más velocidad de ejecución 

componer música a una, dos o tres voces 

organizar tus propios programas de gestión,... 

LOS SECRETOS DEL 



REGALATE Y D] 
VITAL PARA! 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Póker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 




Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1.500 ptas. a la orden de 

MANHATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

Importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos-08023 BARCELONA 
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SVI-808 

Un modem para 

Para aquellos que quieren 
comunicarse mediante 
ordenador por vía telefó- 
nica, indudablemente este pe- 
riférico es de inestimable ayu- 
da. Este modem, modelo SVI- 
808 de la casa Spectravídeo, se 
conecta al MSX a través de la 
salida RS-232 o su interface y 
permite que los usuarios loca- 
lizados en distintos lugares 
puedan tener una comunica- 
ción, directa y permanente, 
intercambiándose programas, 
información, etc. Este periféri- 
co, una vez desarrollado el par- 
que de MSX de España, esta- 
mos seguros será adoptado 
por todos aquellos que quieran 
pertenecer a la gran familia 
MSX. La distribución y comer- 
cialización del Modem SVI- 
808 en España la realiza In- 
descomp, SA., Avda. del Medi- 
terráneo, 9. 28007 Madrid. 




MICRODRIVE JVC 

Un periférico útil 

La compañía JVC cuenta 
entre sus periféricos 
de apoyo a su aparato 
MSX y, consecuentemente a 
cualquier ordenador de este 
sistema, con el microdrive HC- 
F303. Este modelo está diseña- 
do para diskettes de 3.5 pulga- 
das y permite un acceso casi 
instantáneo a los datos y una 
mayor velocidad de lectura y 
grabación. Como muchos 
usuarios ya saben la utiliza- 
ción de un microdrive ofrece 
una dimensión distinta y más 
profunda del ordenador. Esta 
unidad de JVC tiene un precio 
de 60.500 pts. aproximada- 
mente. 




MSX 3 



J5SX6 68 61 prototipo 

Mitsubishi 

Este será el año de salida 
en España de los MSX-2. 
Las grandes compañías 
-Philips, Sony, Toshiba, Sanyo 
y Mitsubishi-, ya preparan 
sus campañas de lanzamiento 
y, aunque mantienen un rela- 
tivo mutismo acerca del apa- 
rato por razones de estrategia 



comercial, ya se conocen sus 
principales características. 
Entre ellas, en el prototipo de 
Mitsubishi podemos apreciar 
un teclado más apropiado a 
funciones profesionales. Pro- 
visto de 89 teclas, dispone el 
teclado numérico separado. Lo 
más novedoso será sin duda su 
extraordinaria capacidad grá- 
fica ya que dispondrá de 128K 
de vídeo RAM. 




HYPER RALLY Y PINO PONG 

Dos novedades Kmüi 



Dos notables novedades 
dentro del software de 
entretenimiento lo pre- 
senta Konami, a través de su 
distribuidora española, la casa 
Serma. Se trata de dos cartu- 
chos en los que se refleja un 
buen grafismo y un correcto 
planteamiento de los juegos. 



Nos referimos a Hyper Rally, 
que está en la línea de los mejo- 
res de esta clase y en la que el 
Jugador puede poner a prueba 
sus reflejos. También requiere 
muchos reflejos y habilidad, el 
Ping Pong que ofrece un buen 
nivel de calidad. 



PROEIN, SJL 
ENT RA CON 
FUERZA 

Con MSX de Activision 

La empresa española 
Proein, SA., entra de 
lleno en el sector del 
MSX, incorporando a su catá- 
logo importantes juegos de la 
marca Activision, de la que es 
distribuidora exclusiva en el 
territorio español. Al respecto 
-cabe aclarar- que también 
Philips distribuye gran parte 
de este catálogo, merced a un 
contrato internacional. Con 
esto advertimos a nuestros 
lectores que tanto Philips — 
sólo en versión MSX— como 
Proein, SA., son las únicas fir- 
mas autorizadas a distribuir 
los Juegos de Activision en Es- 
paña. 

Proein, SA, cuenta entre 
sus cassettes más destacables 
los de River Raid, H.E.R.O., 
Pastfinder, Master of de lamps, 
Qhostbusters, Decathlon y Pit- 
fall II. El precio aproximado es 
de 2.000 pts. 



AVIO r.PflNt ! . 



By/Par/Von/Da 



MONITOR SANYO 

El color del MSX 

El monitor CD-3195 C de 
Sanyo Incorpora señal 
de vídeo compuesto y 
audlo propio. Su pantalla es 
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de 14", consta de 24 líneas 
por 40 columnas de textos y de 
256x192 pixels para resolu- 
ción de gráficos. Según especi- 
fica su ficha técnica los 16 co- 
lores de que dispone se dife- 
rencian perfectamente entre 
sí y su intensidad lumínica fa- 
cilita una correcta combina- 
ción de gráficos ofreciendo 
precisión en las líneas y niti- 
dez cromática. Este monitor 
permite además conectarlo di- 
rectamente con el vídeo y rea- 
lizar todas aquellas operacio- 
nes necesarias para el usua- 
rio. El precio de este aparato es 
de 64.500 pts. aproximada- 
mente. 



MONITORES EN 
COLOR DE 
PHILIPS 

Seis modelos de calidad 

Dentro de los productos 
destinados a la microin- 
formática de consumo, 
Philips ha puesto a la venta 
seis modelos de monitores de 
color. Todos estos aparatos es- 
tán diseñados para ofrecer las 
mejores prestaciones al usua- 
rio de los ordenadores MSX. El 
chasis dispone de un pie que 
permite elevar la pantalla y 
ponerla a la altura más apro- 
piada. Desde el punto de vista 
electrónico se ha utilizado la 
más sofisticada tecnología 
para dar una imagen de alta 
resolución, en una super pan- 
talla muy apropiada para el 
procesamiento de texto y de 
gráficos. Las referencias de los 
modelos son CM-8500, CM 
8501, CM 8510, CM 8520, CM 
8524 y CM 8533, que figura en 
la ilustración. 



RATON GRAFICO MSX 



Importado por ACE, SJL 

Todos los usuarios de 
MSX tienen en este 
periférico un impor- 
tante aliado para poder ha- 
cer sus gráficos. El Neos MS- 



10, importado y comerciali- 
zado por ACE, SA. -Tarrago- 
na 110 -Barcelona- es fácil 
de operar de modo interacti- 
vo. Según su ficha técnica 
tras conectarlo se accede a 
un menú en el que aparecen 



todas las posibilidades de 
trabajo, tal como trazo, tipo 
de figura a realizar, reinte- 
ración de figuras, efectos vi- 
suales, etc. El precio de este 
interesante artilugio es de 
10.500 pts. 







\ 






Una de las alternativas más espectaculares de los ordenadores 
MSX es su asombrosa potencia a la hora de elaborar gráficos. 
Con un poco dé imaginación y cierto dominio de las matemáticas, es 

ncillo obtener estas pequeñas obras de arte. He aquí un 

de lo antedicho. 

19 'HIPOCICLOIDE ■ ^ ^ ™*m-m II 

29 'Por R. Gómez 

30 'de MflSTER COMPUTER SOFT 
40 ' 
50 ' 

60 CLS¡ COLOR 1, 15, 15 ; SOPEEN 2 
70 01=128:02=96 
30 U=32 : VN30/3 

90 FOR I=9E-03 T0 32 STEP .05 
1 00 X=0 1 +(. U+ V >*S I W-. t >+ V*S I N< < U+V >* I / V ) 
1 10 Y=02+< U+V >*C0S< I >+V*C0S«T (. U+V >*I/V ) 
120 PSEKX/r'X.l 
130 NEXT I 
140 GOTO 140 



Nota 

o 



Sustituyendo la 



lina 




3 ! S!S! 
lililí 





EL JOYSTICK DE OR0 1985 YA TIENE DUEÑO 



«A nuestro ganador le lia correspondido además una 

fabulosa unidad de Disco.» 



Una literal avalancha de vo- 
tos ha inundado nuestro bu- 
zón, probando una vez más el 
interés que suscitan nuestros 
concursos. En efecto, han sido 
miles de cartas las recibidas 
en nuestra redacción para pre- 
miar la labor de programación 
de nuestros lectores. La com- 
petencia ha sido dura, ya que 
el gusto de quienes nos escri- 
ben, otorgando sus votos, re- 



sulta sensiblemente distinto. 
Sin embargo, dos han sido los 
programas más votados de los 
cuales nuestro ganador ha 
conseguido la victoria por un li- 
gero margen de votos, lo que 
prueba la alta cualificación de 
nuestros concursantes y el 
gran interés suscitado entre 
vosotros amigos lectores. 
Pero por fin ya tenemos un ga- 
nador: 

LISTADO DE ORO 1985 
y también una 
UNIDAD DE DISCO, 
le ha correspondido al progra- 
ma LA CAZA, publicado en 
nuestro número ESPECIAL 
DE VERANO, cuyo autor es 
José Domingo Caldevilla do- 
miciliado en la calle Fernando 
Pastor n.° 1 de Madrid. 



VOTANTES PREMIADOS 

Tal como habíamos anun- 
ciado previamente, entre to- 
dos los lectores que han vota- 
do el programa ganador y pre- 
vio escrutinio, hemos obteni- 
do nuestra lista de votantes 
ganadores que recibirán en 
sus domicilios cartuchos, o 
cassettes, para sus ordenado- 
res. He aquí la lista de los 
agraciados: 



Jesús Angel Serrano 
MAHON (Baleares) 
Oriol Mlrosa Canal 
BARCELONA 
Francisco de Paz 
Ballesteros 
LA CORUÑA 



Inma Fernández 
GRANADA 
Eduardo Iturrate 
VITORIA 
Joan Pons 

SABADELL (Barcelona) 
Juan Carlos Gómez 
MADRID 

Domingo Hinojosa 

HOSPITALET DEL 
LLOBREGAT (Barcelona) 
Jesús García Pérez 
GANDIA (Valencia) 

Comunicar también que el 
programa clasificado en se- 
gundo lugar fue el que con el 
nombre de LUCKY LUKE, nos 
remitió nuestro lector Javier 
Laguna García que fue publi- 
cado en nuestro número co- 
rrespondiente al mes de sep- 
tiembre. 



A todos los lectores y participantes en las votaciones, nuestro general agradecimiento por el consi- 
derable índice de participación, que hace de nuestras publicaciones líderes en el ámbito del MSX. 



vivecon m¡m lamas 

APASIONANTE A VENTURA SUBMARINA 



I 



Desde ta puente de 
mando, provisto de 
sonar, radar, 
periscopio de 
superficie y 
torpedos, tu misión 
es localizar al 
crucero enemigo que 
tratará de hundirte, 
pero, mucho ojo, tu 
combustible es 
limitado, de modo 
que has de poner a 
prueba todo tu 
ingenio y demostrar 
que tienes los 
nervios de acero. 




Sí deseo recibir por correo certi- 
ficado el juego U-BOOT. 

□ Precio 700 pts. 

□ Precio especial suscriptor 630 pts. 

□ Gastos de envío 70 pts. 

Remito talón bancario de 

pts. a la orden 



de MANHATTAN 
S.A. 



TRANSFER, 



Nombre y apellidos ... 



II 



V 



• 9.: 



a....... 



.............. 



. Ciudad 
tel.: 



I Indicar en el sobre 

MSX CLUB DE CASSETTES 
I Roca i Batlle, 10-12. 

Bajos 

08023 Barcelona. 



ATENCION: 



CASSETTE NO SE VENDE EN QUIOSCOS, SOLO PUEDES 



J 
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SERflR 



CANTIDAD 


PRECIO 


NOMBRE Y APELLIDOS: 




2800 Pts 








DIRECCION: 



POBLACION: 
PROVINCIA:. 



í 



FORMA DE PAGO: ENVIO TALON BANCA RIO □ CONTRA REEMBOLSO □ 



C/P: 



